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PREFACE 


This manual describes the FORTRAN Extended language (Version 4.2) for the CONTROL DATA® CYBER | 
70/Models 72, 73, 74, and 76; 6200, 6400, 6500, 6600, and 6700 computers; and 7600 computers. It is 
assumed that the reader has knowledge of an existing FORTRAN language and the CONTROL DATA CYBER 
70, 6000 Series or 7600 computer systems. FORTRAN Extended is designed to comply with American Standards 
Institute FORTRAN Language. 

The FORTRAN compiler operates in conjunction with Version 3 COMPASS assembly language processor under 
control of the 6000 SCOPE operating system (Version 3.4), the 6000 KRONOS® Time-Sharing System (Ver¬ 
sion 2.1), and 7000 SCOPE operating system (Version 2). The FORTRAN compiler makes optimum use of 
the high speed execution characteristics of the CONTROL DATA CYBER 70, 6000 Series and 7600 computer 
systems. It utilizes the operating system’s multi-programming features to provide compilation and execution 
within a single job operation, as well as simultaneous compilation of several programs. 

The following features are available in FORTRAN Extended for all systems mentioned above: 

LEVEL statement 

IMPLICIT statement 

Hollerith strings in output lists 

Expressions in output lists 

Quote delimited Hollerith strings 

Exclusive OR function 

Messages on STOP and PAUSE statements 

Line limit on output file at execution time 

Syntax-scan-only option 

Program listings suppressed but reference map produced 
Rewrite in place, mass storage 

Multiple systems texts and local texts for intermixed COMPASS programs 
List directed input/output 


iii 
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This manual is in three parts. The reference section, Part 1, contains a full description of the FORTRAN 
Extended language. 


Part 2 consists of a set of sample programs with input cards and output. Each program is preceded by a short 
introduction which explains some of the more difficult aspects of the language for the less experienced FORTRAN 
programmer. 

Part 3 contains mainly systems information, although the applications programmer will be interested in the 
character set in section 1 and the compilation and execution diagnostics in section 2. 

Other documents of interest: 

Publication Number 


COMPASS 3 Reference Manual 60360900 

FORTRAN Extended DEBUG User’s Guide 60329400 

SIFT Programming System Bulletin 60358400 

INTERCOM 4 Reference Manual 60307100 

INTERCOM Interactive Guide for Users of 

FORTRAN Extended 60359700 

LOADER Reference Manual 60344200 

Record Manager Reference Manual 60307300 

Record Manager Guide for Users of FORTRAN Extended 60385200 

Record Manager File Organizaiton User’s Guide 60359600 

UPDATE Reference Manual 60342500 

KRONOS 2.1 Reference Manual 60407000 

KRONOS 2.1 Time-Sharing User’s Reference Manual 60407600 

SCOPE 3.4 Reference Manual 60307200 

SCOPE 2 Reference Manual 60342600 


60305600 E 


Throughout the manual, Control Data extensions to the FORTRAN language are indicated by shading. Other¬ 
wise, FORTRAN Extended conforms to ANSI standards 

Information which applies only to the CONTROL DATA CYBER 70/Model 76 and 7600 computers is indi¬ 
cated by §. 

Information which applies only to the CONTROL DATA CYBER 70/Models 72, 73, and 74, and 6000 Series 
computers is indicated by 


This product is intended for use only as described in this document. Control 
Data cannot be responsible for the proper functioning of undescribed features 
or undefined parameters. 
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STATEMENT FORMS 


The following symbols are used in the descriptions of FORTRAN Extended statements: 

v variable or array element 

sn statement label 

iv integer variable 

m unsigned integer or octal constant or integer variable 

name symbolic name 

u input/output unit: 

1- or 2-digit decimal integer constant, integer variable with value of: 1-99, 
or a Hollerith value which is the filename left justified with zero fill 

fn format designator 

iolist input/output list 

Other forms are defined individually in the following list of statements. 


Page 

ASSIGNMENT STATEMENTS Numbers 

v = arithmetic expression 1-4-1 

logical v = logical or relational expression 1-4-5 

v = masking expression 1-4-5 


MULTIPLE ASSIGNMENT 

v 1 = v 2 = ... v n = expression 1-4-6 

CONTROL STATEMENTS 


GO TO sn 



1-5-2 

GO TO (sn 1 ,. 

• ■ ,sn ] 
m 

1 ,iv 

1-5-2 

GO TO (sn 1 ,. 

■ • - sn m ) 
m 

i iv 

1-5-2 

GO TO (sn 1 ,. 

■ ■' Sn m! 

i, expression 

1-5-2 

GO TO (sn 1 ,. 

' ’' sn m) 

1 expression 

1-5-2 
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Page 

Numbers 


GO TO iv, (sn 1 .... ,sn m ) 

1-5-5 

GO TO iv (sn 1 ,... , sn m ) 

1-5-5 

ASSIGN sn TO iv 

1-54 

1F (arithmetic or masking expression) sn 1 , sn 2 , sn 3 

1-5-6 

IF (arithmetic or masking expression) sn 1 ,sn 2 

1-5-6 

IF (logical or relational expression) stat 

1-5-7 

IF (logical or relational expression) sn 1 ,sn 2 

1-5-8 

DO sn iv = m 1 , m 2 , m 3 

1-5-8 

DO sn iv = m 1 , m 2 

1-5-8 

CONTINUE 

1-5-14 

PAUSE 

1-5-14 

PAUSE n 

1-5-14 

PAUSE *c...c* 

1-5-14 

STOP 

1-5-15 

STOP n 

1-5-15 

STOP ¥=c... cat 

1-5-15 

END 

1-5-15 


TYPE DECLARATION 

INTEGER name.name 1-6-2 

j n 

TYPE INTEGER name.,..., name 

I n 


xii 
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Numbers 


REAL name 1 ,..., name n 1-6-2 

TYPE REAL name 1 ,...,name n 

COMPLEX name 1 name n 1-6-2 

TYPE COMPLEX name,,..., name n 

DOUBLE PRECISION name,,..., name 1-6-3 

1 n 

DOUBLE name,,..., name 

i n 

TYPE DOUBLE PRECISION name,,..., name n 
TYPE DOUBLE name,,..., name n 

LOGICAL name,name n 1-6-3 

TYPE LOGICAL name,name n 

IMPLICIT type, (ac),..., type n (ac) 1-6-3 

(ac) is a single alphabetic character or range of characters represented by the first and last 
character separated by a minus sign. 

EXTERNAL DECLARATION 

EXTERNAL name,.name n 1-6-18 

STORAGE ALLOCATION 

type name, (dj) 

TYPE type name, (d } ) 

DIMENSION name, (d,name n (d n ) 1-6-6 

dj array declarator, one to three integer constants; or in a subprogram, one to 

three integer variables 

type INTEGER, REAL, COMPLEX, DOUBLE PRECISION or LOGICAL 


xiii 
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Numbers 


COMMON v,. 

V n 

1-6-8 

COMMON/blkname./v,,. . ., v ... /blkname /v, ,,\i 

I! n n 1 n 

1-6-8 

COMMON// v, , . . 

■ ' V n 

1-6-8 

blkname 

symbolic name or 1 - 7 digits 


// 

blank common 


DATA vlist../dlist../ 

.vlist /dlist / 

n n 

1-6-21 

DATA (var=dlist) ,, 

..., (var=dlist) 

1-6-21 

var 

variable, array element, array name or implied DO list 


vlist 

list of array names, array elements, or variable names, separated by commas 


dlist 

one or more of the following forms separated by commas: 



constant 
(constant list) 
rf*constant 
rf*(constant list) 
rf(constant list) 



constant list list of constants separated by commas 



rf integer constant. The constant or constant list is repeated 

the number of times indicated by rf 


EQUIVALENCE 

C 

> 

1-6-12 

LEVEL n, a t . 

a n 

1-6-17 

n 

unsigned integer 1,2 or 3 


a 

variable, array element, array name 



I 


XJV 
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Page 

MAIN PROGRAMS Numbers 

PROGRAM name (file,__ file n ) 1-7-1 

PROGRAM name 1-7-1 

SUBPROGRAMS 

FUNCTION name (p,.p n ) 1-7-6 

type FUNCTION name (p, ,..., p n ) 1-7-6 

type INTEGER, REAL, COMPLEX, DOUBLE PRECISION or LOGICAL 

SUBROUTINE name (p,.p p ) 1-7-12 

SUBROUTINE name 1-7-12 

SUBROUTINE name (p,.p ), RETURNS (b,.b ) 1-7-12 

SUBROUTINE name.RETURNS (b,.b^) , 1-7-12 

ENTRY POINT 

ENTRY name 1-7-20 

STATEMENT FUNCTIONS 

name (p,,..., P n ) = expression 1-7-9 

SUBPROGRAM CONTROL STATEMENTS 

CALL name 1-7-14 

CALL name (p,.P n ) 1-7-14 

CALL name (p 1 ,...,p n ),RETURNS (b,,...,b m ) 1-7-14 

CALL name,RETURNS (b,.b m ) 1-7-14 

RETURN 1-5-16 

RETURN i 1-5-16 

i is a dummy argument in a RETURNS list 
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Page 

Numbers 

SPECIFICATION SUBPROGRAMS 


BLOCK DATA 

1-6-25 

BLOCK DATA name 

1-6-25 

INPUT/OUTPUT 

PRINT fn.iolist 

1-9-3 

PRINT fn 

1-9-3 

PRINT (u,fn) iolist 

1-9-3 

PRINT*,iolist 

1-9-3 

PRINT (u,fn) 

1-9-3 

PRINT (u,*) iolist 

1-9-3 

PUNCH fn,iolist 

1-9-4 

PUNCH fn 

1-9-4 

PUNCH (u,fn) iolist 

1-94 

PUNCH *,iolist 

1-94 

PUNCH (u,fn) 

1-94 

PUNCH (u,*) iolist 

1-94 

WRITE (u,fn) iolist 

1-9-5 

WRITE (u,fn) 

1-9-5 

WRITE fn,iolist 

1-9-5 

WRITE fn 

1-9-5 

WRITE (u) iolist 

1-9-6 

WRITE (u) 

1-9-6 

WRITE (u,*) iolist 

1-9-7 

WRITE*,iolist 

1-9-7 


xvi 
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Page 


READ (u,fn)ioli$t 

Numbers 

1-9-7 

READ (u,fn) 

1-9-7 

READ fn.iolist 

1-9-8 

READ (u) iolist 

1-9-8 

READ (u) 

1-9-8 

READ (u,*) iolist 

1-9-9 

READ*,iolist 

1-9-9 

BUFFER IN (u,p) (a,b) 

1-9-13 

BUFFER OUT (u,p) (a,b) 

1-9-14 

a first word of data block to be transferred 

b last word of data block to be transferred 

p integer constant or integer variable. 

zero = even parity, nonzero = odd parity 

NAMELIST/group name., /a^. a n / ... /group name^a,,..., a n 

1-9-15 

READ (u.group name) 

1-9-15 

WRITE (u,group name) 

1-9-15 


aj array names or variables 

group name symbolic name identifying the group a 1 ,... ,a n 


INTERNAL TRANSFER OF DATA 

ENCODE (c,fn,v) iolist 1-9-21 

DECODE (c,fn,v) iolist 1-9-24 

v starting location of record. Variable or array name 

c length of record in characters. Unsigned integer constant or simple 

integer variable 
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xvn 


FILE MANIPULATION 


Page 

Numbers 


REWIND u 


1-9-12 


BACKSPACE u 1-9-12 

ENDFILEu 1-9-13 


FORMAT SPECIFICATION 

sn FORMAT (fs,.fsj 

fs- one or more field specifications separated by commas and/or grouped by 

parentheses 


DATA CONVERSION 


srEw.d 

Single precision floating point with exponent 

1-10-9 

srFw.d 

Single precision floating point without exponent 

1-10-13 

srGw.d 

Single precision floating point with or without exponent 

MO-15 

srDw.d 

Double precision floating point with exponent 

1-10-16 

rlw 

Decimal integer conversion 

1-10-8 

rLw 

Logical conversion 

1-10-22 

rAw 

Character conversion 

1-10-19 

rRw 

Character conversion 

1-10-21 

rOw 

Octal integer conversion 

1-10-18 

s 

optional scale factor of the form: 

nPDw.d 

nPEw.d 

nPFw.d 

nPGw.d 

nP 

1-10-22 

r 

repetition factor 


w 

integer constant indicating field width 


d 

integer constant indicating digits to right of decimal point 


xviii 
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Page 

Number 

nX Intraline spacing 1-10-24 

nH .... ) 1-10-25 

[Hollerith 1-10-27 

¥=...#) 1-10-27 

/ Format field separator; indicates end of FORTRAN record 1-10-29 

Tn Column tabulation 1-10-34 

FORTRAN Control Card 1-11-1 


OVERLAYS 

CALL OVERLAY (fname,i,j,recall,k) 1-12-5 

i primary overlay number 

j secondary overlay number 

recall if 6HRECALL is specified, the overlay is not reloaded if it is already in 

memory 

k L format Hollerith constant: name of library from which overlay is to 

be loaded 

any other non-zero value: overlay loaded from global library set 

OVERLAY (fname,i,j ( Cn) 1-124 

i primary overlay number, octal 

j secondary overlay number, octal 

Cn n is a 6-digit octal number indicating start of load relative to blank common 


DEBUG 



C$ DEBUG 


1-13-24 

C$ DEBUG (name 1 ,..., name n ) 


1-13-24 

C$ AREA bounds- bounds,, f 

1 n >• within program unit 

C$ DEBUG ) 


1-13-27 

C$ AREA/name 1 Aiounds 1 ,. .., bounds n ,..., /name n /bounds 1 ,. 

C$ DEBUG (name 1 ,... , name n ) 
or 

C$ DEBUG 

. ., bounds,, ) 

n f external 

[ debug deck 

1-13-27 
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xix 


bounds 


(n 1 ,n 2 ) n 1 initial line position 

n 2 terminal line position 

(n 3 ) n 3 single line position to be debugged 

(n 1 ,*) n 1 initial line position 

* last line of program 

(*,n 2 ) * first line of program 

n 2 terminal line position 

(*,*) * first line of program 

* last line of program 


c$ 

ARRAYS (a y 

. a n> 

c$ 

ARRAYS 



a i 

array names 

c$ 

CALLS <s 1 ,.. 

•' s n> 

c$ 

CALLS 



s i 

subroutine names 

c$ 

FUNCS (f 1( . 

• ■ 

c$ 

FUNCS 



f i 

function name 

c$ 

GOTOS 


c$ 

NOGO 


c$ 

STORES (c,. 

...,c n ) 


c i 

variable name 


variable name .relational operator, constant 

variable name .relational operator, variable name 

variable name .checking operator. 

checking operators: 

RANGE out of range 

INDEF indefinite 

VALID out of range or indefinite 


Page 

Numbers 

1-134 

1-134 


1-13-6 


1-13-6 


1-13-8 


1-13-8 


1-13-15 

1-13-18 


1-13-1 1 


xx 
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Page 

Numbers 

c$ 

TRACE (Iv) 


1-13-16 

c$ 

TRACE 


1-13-16 


lv level number: 




0 

tracing outside DO loops 



n 

tracing up to and including level n in DO nest 


c$ 

OFF 


1-13-28 

c$ 

OFF (x,.xj 


1-13-28 


Xj any debug option 
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CODING FORTRAN STATEMENTS 


1-1 


A FORTRAN program contains executable and non-executable statements. Executable statements specify 
action the program is to take, and non-executable statements describe characteristics of operands, statement 
functions, arrangement of data, and format of data. 

The FORTRAN source program is written on the coding form illustrated in figure 1. Each line on the coding 
form represents an 80-column card. The FORTRAN character set is used to code statements. 


THE FORTRAN 

CHARACTER SET 


Alphabetic 

A to Z 


Numeric 

0 to 9 


Special 

» equal 

) right parenthesis 


+ plus 

, comma 


- minus 

. decimal point 


* asterisk 

$ dollar sign 


/ slash 

blank 


( left parenthesis 



In addition, any character (Appendix A) may be used in Hollerith constants and in comments. Blanks are not I 
significant except in Hollerith fields. 
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FORTRAN STATEMENTS 


Column 1 

c *' $ or *\ 

indicates comment line 

l^sssssStl 

Columns 1-5 

Statement label 

Column 6 

Anv character other than blank or zero denotes continuation; does not 

Columns 7-72 

Statement 

Columns 73-80 

Identification field, not processed by compiler 


CONTINUATION 

Statements are coded in columns 7-72; if a statement is longer than 66 columns, it may be continued on as 
many as 1 9 lines. A character other than blank or zero in column 6 indicates a continuation line. Column I 
can contain any character other than C, *, or S; columns 2. 3. 4 and 5 may contain any character. Any 
| statement except a comment or OVERLAY may be continuedaHMfftl 


I 


STATEMENT LABELS 

I Columns 1-5 of the first line of a statement may be used for the statement label. Any statement may be labeled; 
however, only FORMAT and executable statement labels can be referenced by other statements. Statement labels 
are integers 1-99999, and they may appear in any order. Leading zeros and leading or embedded blanks are not 
significant. Each statement label must be unique to the program unit in which it appears. In flpire 1, statement 
labels are 4, 1, 2, and 3. 



Tstatement separator 


Several short statements may be written on 
statement following the S 


|ACUM-24.*l-g *'1 
is the same as 


Iaoum 


$ may be ut 
i cannot be 


1 - 1-2 
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STATEMENT LABELS 


A statement label uniquely identifies a statement so it can be referenced by another statement. Statements 
that will not be referenced do not need labels. Labels can be any 1- to 5-digit integer; blanks and leading 
zeros are not significant in a label. Labels need not occur in numerical order; however, a given label must not 
be used more than once in the same program unit. A label is known only in the program unit containing it; 
it cannot be referenced from a different program unit. Any statement can be labeled; however, only FORMAT 
and executable statement labels can be referenced by other statements. A label on a continuation line is ignored. 


COMMENTS 

In column 1 a C, *, or $ indicates a comment line. Comments do not affect the program; they can be written 
in column 2 to 80 and can be placed anywhere within the program. If a comment occupies more than one 
line, each line must begin with C, *, or S in column 1. In a comment card a character in column 6 is not 
recognized as a continuation character. Comments can appear between continuation cards; they do not inter¬ 
rupt the statement continuation. 

Comment cards following an END statement are listed in the same program unit as the END. 


COLUMNS 73-80 

Any information may appear in columns 73-80 as they are not part of the statement. Entries in these columns 
are copied to the source program listing. They are generally used to order the punched cards in a deck. They 
may contain information for DEBUG AREA processing. 


BLANK CARDS 

Blank cards may be used freely between statements to produce blank lines on the source listing. Unlike a 
comment card, a blank card does interrupt statement continuation, and the line following the blank card is 
the beginning of a new statement even if it is a continuation line. 


DATA CARDS 

No restrictions are imposed on the format of data cards read by the source program. Data can be written in 
columns 1-80. Columns 73-80 are not ignored on data cards. 
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CONSTANTS AND VARIABLES 

CONSTANTS 

A constant is a fixed quantity. The seven types of constants are: integer, real, double precision, complex, 
octal, Hollerith, and logical. 


INTEGER CONSTANT 


n i n 2 


n is a numeric digit 
1 < m < 18 decimal digits 
Examples: 

237 -74 +136772 0 -0024 

An integer constant is a string of 1-18 decimal digits written without a decimal point. It may be positive, 
negative or zero. If the integer is positive, the plus sign may be omitted; if it is negative, the minus sign 
must be present. An integer constant must not contain a comma. The range of an integer constant is -2 sg -l 
to 2 5, -l (2 59 -l = 576 460 752 303 423 487). 

Examples of invalid integer constants: 


46. 

(decimal point not allowed) 

23A 

(letter not allowed) 

7,200 

(comma not allowed) 


When the integer constant is used as a subscript, or as the index in a DO statement or an implied DO, the 
maximum value is 2 l7 -2 (2 |7 -2 = 13 1 070), and minimum is 1. 

Integers used in multiplication and division are truncated to 48 bits. The result of integer multiplication or 
division will be less than 2 47 T. If the result is larger than 2 47 -l, (2 47 -l = 140 737 488 355 327) high order 
bits will be lost. No diagnostic is provided. The resultant maximum value of conversion from real to integer 
or integer to real is 2 47 -l. If the value exceeds 2 47 -l, high order bits are lost; no diagnostic is provided. For 
addition and subtraction, the full 60-bit word is used. 
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REAL CONSTANT 


n.n n, n.nE±s ,nE±s n.E±s nE±s 


n Coefficients 15 decimal digits 

E±s Exponent, the + sign is optional 

s Base 10 scale factor 

A real constant consists of a string of decimal digits written with a decimal point or an exponent, or both. 
Commas are not allowed. If positive, a plus sign is optional. 

The range of a real constant is 10~ :w to I0 +W2 ; if this range is exceeded, a diagnostic is printed. Precision is 
approximately 14 decimal digits, and the constant is stored internally in one computer word. 

Examples: 

7.5 -3.22 +4000. 23798.14 .5 - .72 42.El 700.E-2 

Examples of invalid real constants: 

3,50. (comma not allowed) 

2.5A (letter not allowed) 

Optionally, a real constant can be followed by a decimal exponent, written as the letter E and an integer con¬ 
stant indicating the power of ten by which the number is to be multiplied. If the E is present, the integer 
constant following the letter E must not be omitted. The sign may be omitted if the exponent is positive, but 
it must be present if the exponent is negative. 


Examples: 

42.El 

.00028E+5 

6.205E12 

8.0E+6 

700.E-2 

7E20 


(42. X 10' = 420.) 

(.00028 X I0 5 = 28.) 

(6.205 X 10' 2 = 6205000000000.) 

(8. X 10 6 = 8000000.) 

(700. x 10' 2 = 7.) 

(7. X 10 20 = 70 000 000 000 000 000 0000.) 


Example of invalid real constants: 

7.2E3.4 exponent not an integer 
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DOUBLE PRECISION CONSTANT 


I n.nDis .nD±s n.Dis nD±s | 
n Coefficient 

D±s Exponent, if s is positive the + sign is optional 

■f 

s Base 10 scale factor 

Double precision constants are written in the same way as real constants except the exponent is specified by 
the letter D instead of E. Double precision values are represented internally by two computer words, giving 
extra precision. A double precision constant is accurate to approximately 29 decimal digits. 

Examples: 


5.834D2 

(5.8 3 4 x 10 2 = 5 8 3.4) 

14.D-5 

(14. x 10‘ 5 = .00014) 

9.2D03 

(9.2 X 10 3 = 9200.) 

-7.D2 

(-7. X 10 2 = -700.) 

3120D4 

(3120. x 10“ = 31200000.) 

Examples of invalid double precision constants: 

7.2D 

exponent missing 

D5 

exponent alone not allowed 

2,1.3D2 

comma illegal 


3.141592653589793238462643383279 D and exponent missing 
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COMPLEX CONSTANT 



rl Real part 

r2 Imaginary part 

Each part has the same range as a real constant. 

Complex constants are written as a pair of real constants separated by a comma and enclosed in 
parentheses. 

FORTRAN Coding Complex Number 

( 1. , 7.54) I. + 7.541 i = /T 

(-2.1E1, 3.24) -2K + 3.24i 

(4.0, 5.0) 4.0 + 5.0i 

(0., -1.) 0.0 - I.Oi 

The first constant represents the real part of the complex number, and the second constant represents the 
imaginary part. The parentheses are part of the constant and must always appear. Either constant may be 
preceded by a plus or minus sign. Complex values are represented internally by two consecutive computer 
words. 

Both parts of complex constants must be real; they may not be integer. 

Examples of invalid complex constants: 

(275, 3.24) 275 is an integer 

(12.7D-4 16.1) comma missing and double precision not allowed 

4.7E+2, l. 942 parentheses missing 

(0,0) 0 is an integer 

Real constants which form the complex constant may range from 10 _2W to 10 + 322 . 


1-24 


60305600 A 



OCTAL CONSTANT 


n is an octal digit, 0 through 7. 1 < m < 20 octal digits 


777777B 


§00187: 


*■ ‘ 


Invalid octal 




•nrrn « and » are non-oci»l digiis ’ y ■ 

77000000007777762525252B exceeds 20 digits - '* * 

■ •" • ■ - j, 

07766 0 not allowed >" - it > 

' . ‘ ; " * i. 

An octal constant must not exceed 20 digits nor contain a non-octal digit. If it ‘does, 5 a ! fi&f compiler 
dUgpostic is. printed. When fewer than 20 octal digits are Specified, the digits are right justified’add zero 
lilted. Octal constants can be used anywhere integer constants can be used, except: they cannot be used as 
statement labels or statement label references, in a FORMAT statement, or as the character count when a 
Hollerith constant is specified. ' ^ a’ aa ' a - 5 ‘ ' s 

' “ ■ . ; ■■ >. . . t> - ■ f e „ A 

they can be used in DO statements, expressions. and DA'TA statement*, and as DIMENSION specifica- 




Examples: 




BAT - tI*62528) .OR. JAY 


masking expression, 

. -v , : • . i r ... *1 r.r. ;:V 0 * 

octal constant used as parameterin function 4 

- / •- ' A'. ; '■ •• ■ 7 f' ! - ; ; ■ '} '< •' i 

masking expression i ' € 

» , 

arithmetic expression 4 / 


J - MAXO (1 .1000B.J,K+40B ) 


RANI - I . ABC. 7770OOOOB 


J - (6252B + It)/X 





I 
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HOLLERITH CONSTANTS 



n Unsigned decimal integer representing number of characters in string. Must be 

greater than zero, and not more than 10 when used in an expression. 



5 


7 



FPOF°AM h CLL (CUTFUT) 

A = 6HAPC0EF 

5 = 6LAPCDEF 

C. = 6RAPCCEF 

D = JtAPCDEP# 

FPIbT 1, A,A,F t B,C,C«C»0 

1 


FDP^AT (0?4,A15) 

STCF 

EM-J' 


Stored Internally: 


Display Code: 


01Q2C3G4C50655555555 
0102030^.1506 i'OOOCOOP 

ecocoooocic^c^oircsoe 

01020304050655555555 


A"C0FF 

APCDEF 

a FcnpF 
APCDEF 


A 

B 

C 

D 
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A Hollerith constant consists of an unsigned decimal integer, the letter H, and a string of characters. For 
example: 

5HLABEL 

The integer represents the number of characters in the string including spaces (or blanks). Spaces are significant | 
in a Hollerith constant: 

18HTHIS IS A CONSTANT 
7HTHE END 

19HRESULT NUMBER THREE 

I - (+5HABCDE) is a valid statement; ( + 5HABCDE) is an expression and the + sign is an 
operator. 


nHf 


Hollerith constants may be used in ; OATA and FORMAT statements, as arguments 

in subprogram calls, and as list items in an output list of ah inputtfttefflem.' If a Hollerith constant 
is used as an operand in an arithmetic operation, an informative diagnostic is given. 


fa ag 


'In a FORMAT state¬ 


ment or as an actual argument to a subprogram, the length of the Hollerith string is limited to 150 characters. 


A Hollerith string delimited by the paired symbols 
constant can be wed. For example, 

IP(V.EH.9*YI!S^) t 



PRINT 1, 9* SQRT 

f-i v . 

PRINT 2, # TEST PASSED # 

' ; i ' ' ' /, ‘ =. ' ’ - , 

- r‘ 

INTEGER LINE(7), N1THRU9 




i; i i,, a • 

' m* 1 1 1 ' ■ f 



LOGICAL NEWPAGE 
IP (NEWPAGE) LINE(7) 

PROGRAM FUQUTPUT) 

print i* * ftelo length * #? igetflc 

V FORMAT (2A10»I6) • , ■ £ :W4 , , • 


^ , lp||: ^ 

Vi.',, <, "c •*hpV j SZ A. 

***, ' -i 

P ‘ %: S M - * 
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| An empty string such as OH or f f is not permitted. 

When the number of characters in a Hollerith constant is less than 10, the computer word is left justified 
with blank fill. If it is more than 10, but not a multiple of 10, only the last computer word is left justified 
with blank fill. 

Examples: 




7 

I 


READ 1,NAME 

FORMAT (A7) 

IF(NAME .EQ. 4HJ0AN) GO TO 20 


7 




/ 

IOOO 


WRITE (6,1000) 

FORMAT (IX, 73H NO COUNTRY THAT HAS BEEN THOROUGHLY EXPLORED IS 
INFESTED WITH DRAGONS.) 



LOGICAL CONSTANTS 

A logical constant takes the forms: 

.TRUE, ttf Vf* representing the value true 
.FALSE, dr representing the value false 
The decimal points are part of the constant and must appear. 
Examples: 

LOGICAL XI, X2 


XI - .TRUE, 
X2 - .FALSE. 
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VARIABLE NAMES 


A variable represents a quantity whose value may vary; this value may change repeatedly during program exec¬ 
ution. Variables are identified by a symbolic name of one to seven letters or numbers, the first of which must 
be a letter. A variable is associated with a storage location; and whenever the variable is used, it assumes the 
value currently in the location. The five types of variables are: logical, integer, real, double precision, and com¬ 
plex. 

The type of a variable is implied by its first character if it is not defined explicitly with a type or IMPLICIT 
statement (section 6). If type is not declared, a variable is type integer if the first character of the symbolic 
name is I, J, K, L, M, or N. 

Examples: 

IFORM JINX2 KODE NEXT23 M 

A variable not defined in a type or IMPLICIT statement is type real if the first character of the symbolic 
name is any letter other than I, J, K, L, M, N. 

Examples: 

RESULT ASUM A73 BOX 
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Default Typing of Variables 


A-H, O-Z 

Real 

1- N 

Integer 


INTEGER VARIABLE 

An integer variable name must be one to seven letters or numbers; the first letter must be I, J, K, L, M, or N if the 
type has not been defined explicitly. 

The value range is -2^9-1 to 259-1. When an integer variable is used as a subscript or as the control variable in 
a DO statement, the maximum value is 2 17 -2. The resultant absolute value of conversion from integer to real, 
or real to integer must be less than 2 47 . The operands, as well as the result, of an integer multiply or division 
must be less than 2 47 in absolute value. If this value is exceeded, high order bits will be lost. The resultant 
absolute value of integer addition or subtraction must be less than 2*9-1. 

Examples: 

ITEM1 NSUM JSUM N72 J K2S04 

REAL VARIABLES 

A real variable name must be one to seven letters or numbers of which the first must be any letter other than 1. J, K, 
L, M, or N if the type has not been defined explicitly. 

The value range is 10" 293 to 1 0 +322 , with approximately 14 significant digits of precision. 

Examples: 

AVAR SUM3 RESULT T0TAL2 BETA XXXX 
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DOUBLE PRECISION VARIABLES 


Double precision variable names must be defined explicitly by a type declaration. The value of a double 
precision variable may range from 10‘ 2M to 10 + 322 , with approximately 29 significant digits of precision. 

Example: 

DOUBLE PRECISION OMEGA, X, IOTA 

COMPLEX VARIABLES 

Complex variables must be defined explicitly by a type declaration. A complex variable occupies two words 
in storage. Each word contains a number in real variable format, and each number can range from 10“ 2<>3 to 

10 + 322 6 

Example: 

COMPLEX ZETA, MU, LAMBDA 

LOGICAL VARIABLES 

Logical variables must be defined explicitly by a type declaration. A logical variable has the value true or 

false. 

Example: 

LOGICAL L33, PRAVDA, VALUE 
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ARRAYS 


A FORTRAN array is a set of elements identified by a single name. A particular element in the array may 
be referenced by its position in the array. Arrays may have one, two, or three dimensions; the array name 
and dimensions must be declared in a DIMENSION, COMMON or type declaration. 

Example: 

PHOGRUN VAkOIM UWVPW * 

COMMON X(4*3) 

HEAL Y(6) 

CALL Il)TA(X»i2) 

call ioTA<y,b) 

WrtI Tt (t> * 1 0 0 > X ♦ Y 

1UU FOKMAT (*1AKKAY X * *«12F6.0♦bXtf * *61-6.0) 

STOP 

trIL) 


The number of elements in an array is the product of the dimensions. For example, STOR(3,7) contains 21 
elements, STOR(6,6,3) contains 108. The number of subscripts must not exceed the number specified in the 
array declaration. For example, a one dimensional array A(I) cannot be referred to as A(I,J) and a two 
dimensional array A(I,J) cannot be referred to as A(I,J,K). Such references would produce a diagnostic. 

The number of dimensions in the array is indicated by the number of subscripts in the declaration. 

DIMENSION STOR ( 6 ) declares a one-dimensional array of six elements 

REAL STOR ( 3,7 ) declares a two-dimensional array of three rows and seven columns 

LOGICAL STOR( 6,6,3) declares a three-dimensional array of six rows, six columns and three planes 

Each element in the array is referred to by the array name followed by a set of expressions in parentheses, 
called subscripts. Subscripts indicate the position of the element in the array. 
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Example: 

The array N consists of six values in the order: 10, 55, 11, 72, 91, 7 


N(l) 

value 10 

N(2) 

value 55 

N(3) 

value 11 

N(4) 

value 72 

N(5) 

value 91 

N(6) 

value 7 


The entire array may be referenced by the unsubscripted array name when it is used as an item in an 
input/output list or in a DATA statement. In an EQUIVALENCE statement, however, only the first 
element of the array is implied by the unsubscripted array name. •; V 

Example: 

The two-dimensional array TABLE (4,3) has four rows and three columns. 


Column 1 Column 2 


Column 3 


Row I 

44 

Row 2 

72 

Row 3 

3 

Row 4 

91 


10 

105 

20 

200 

11 

30 

76 

714 


To refer to the number in row two, column three write TABLE(2,3). 


TABLE(3,3) = 30 TABLE) 1,1) = 44 TABLE(4,1) = 91 


TABLE(4,4) would be outside the bounds of the array and results may be unpredictable. 

Zero and negative subscripts are not allowed. If the number of subscripts in a reference is less than the 
declared dimensions, the compiler assumes missing subscripts have a value of one. 

For example, in an array A (10,10,10) Similarly for A(12,14) 

A(I,J) implies A (I,J,1) A(I) implies A(I,1) 

A(I) implies A (1,1,1) A implies A(l,l)f 

A implies A (1,1,1 )f and few A(7) A implies A(l)f 

A(,I) or A(I„K) are illegal 


(Except in input/output lists, as arguments to functions or subroutines, and DATA statements. 
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ARRAY STRUCTURE 


Arrays are stored in ascending locations; the value of the first subscript increases most rapidly, and the 
value of the last increases least rapidly. 

Example: 

In an array declared as A(3,3,3), the dements of the array are stored by columns in ascending 
locations. 

Plane 1 

Col 1 Col 2 Col 3 

Row 1 
Row 2 
Row 3 


A111 

[*• A121 

[-*■ A131 


\ 

\ 

\ 


A211 

A221 

A231 

Plane 2 

\ ' 

\ ‘ 

\ 


A311 J 

A321 J 

A331 

Co! 1 Col 2 


Plane 3 

Col 1 Col 2 Col 3 
N 

Row 1 
Row 2 
Row 3 


A113 

r*A123 

r~A133 

1 

l 

\ 

A213 

A223 

A233 

\ 

1 

I 

A313 J 

A323 J 

A333 


Row 1 

A112 

r A122 

r*A132 


t 

1 

{ 

Row 2 

A212 

A 222 

A232 


1 

\ 

l 

Row 3 

A312-J 

A322-J 

A332 
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The array is stored in linear sequence as follows: 


Element 


Location Relative 
to first Element 


A( 1,1.1) 
A(2,1,1) 
A(3,1,1) 
A( 1,2,1) 
A(2.2.1) 
A(3,2.1) 
A( 1,3,1) 
A(2,3,l) 
A(3,3,1) 
A(l,l,2) 
A(2.1.2) 
A(3,l,2) 
A( 1.2.2) 
A< 2.2,2) 
A(3J.2) 
A( 1.3,2) 
A(2.3.2) 
A(3.3.2) 
A( 1,1,3) 
A(2.1.3) 
A(3.1.3) 
A( 1.2.3) 
A(2.2.3) 
A(3.2.3) 
A( 1.3.3) 
A(2.3.3) 
A(3.3.3) 


stored in 


t 

stored in 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 


To find the location of an element in the linear sequence of storage locations the following method can be 

used: 


Number of 

Array 


Location of Element 

Dimensions 

Dimension 

Subscript 

Relative to Starting Location 

1 

ALPHA(K) 

ALPHA(k) 

(k-l)XE 

2 

ALPHA(K.M) 

ALPHA(k.m) 

(k-1+KX{m-1) )XE 

3 

ALPHA(K.M.N) 

ALPHA(k,m,n) 

{k-1+KX(m-1+MX(n-1)))XE 


Figure 2-1. Array Element Location 


K, M, and N are dimensions of the array. 

k,m, and n are the actual subscript values of the array. 
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1 is subtracted from each subscript value because the subscript starts with 1, not 0. 

E is length of the element. For real, logical, and integer arrays, E = 1. For complex and double 
precision arrays, E = 2. 


Examples: 



Subscript 

Location of Element 

Relative to Starting Location 

INTEGER ALPHA (3) 

ALPHA(2) 

(2-1)X1 = 1 

REAL ALPHA (3,3) 

ALPHA(3,1) 

(3-1+3X (1-1 ))X 1 =2 

REAL ALPHA (3,3,3) 

ALPHA(3,2,1) 

(3-1+3X (2-1 )+3X3X (1-1 ))X 1 =5 


A single subscript may be used for an array with multiple dimensions. 

The amount of storage allocated to arrays is discussed under DIMENSION declarations in Section 5. 


SUBSCRIPTS 

A subscript can be any valid arithmetic expression. If the value of the expression is not integer, it is 
truncated to integer. 

The value of the subscript should be greater than zero and less than or equal to the maximum specified in 
the array specification statement, or the reference will be outside the array. If the reference is outside the 
bounds of the array, results are unpredictable. 

Examples: 

Valid subscript forms: 

A(I.K) 

B(1+2,J-3,6*K+2) 

LAST(6) 

ARAYD(1,3,2) 

STRING(3 *K*ITEM+3) 

Invalid subscript forms: 

ATLAS (0) zero subscript causes a reference outside of the array 
D (1 . GE. K ) relational or logical expression illegal 
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EXPRESSIONS 


1-3 


FORTRAN expressions are arithmetic, masking, logical and relational. Arithmetic a^^ffiking expressions 
yield numeric values, and logical and relational expressions yield truth values. 


ARITHMETIC EXPRESSIONS 

An arithmetic expression is a sequence of unsigned constants, variables, and function references separated 
by operators and parentheses. For example, 

(A-B)*F + C/D**E is a valid arithmetic expression 

FORTRAN arithmetic operators: 

+ addition 

subtraction 
* multiplication 

/ division 

* * exponentiation 

An arithmetic expression may consist of a single constant, variable, or function reference. If X is an 
expression, then (X) is an expression. If X and Y are expressions, then the following are expressions; 


X + Y 

X-Y 

X*Y 

X/Y 

-X 

X**Y 

+ x 
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All operations must he specified explicitly. For example, to multiply two variables A and B, the expression 
A*B must be used. AB, (A)(B), or A.B will not result in multiplication. 


Expression 

Value of 

3.78542 

Real constant 3.78542 

A(2 * J ) 

Array element A (2*J) 

BILL 

Variable BILL 

SQRT(5.0) 


A+B 

Sum of the values A and B 

C*D/E 

Product of C times D divided by E 

J**I 

Value of J raised to the power of I 

(200 - 50)*2 

300 


EVALUATION OF EXPRESSIONS 

The precedence of operators for the evaluation of expressions is shown below: 

# # 

(exponentiation) 

/ * (division or multiplication) 

+ “ (addition or subtraction) 

.GT. .GE. .LT. .LE. .EQ. .NE. (relationals) 

.NOT. (logical) 

.AND. (logical) 

.OR. (logical) 

Unary addition or subtraction are treated as operations on an implied zero. For example, + 2 is treated as 
0 + 2, -3 is treated as 0-3. 

Expressions are evaluated from left to right with the precedence of the operators and parentheses 
controlling the sequence of operation (the deepest nested parenthetical subexpression is evaluated first). 

However, any function references and exponentiation operations not evaluated inline are evaluated prior to 
other operations. 

In an expression with no parentheses or within a pair of parentheses in which unlike classes of operators 
appear, evaluation proceeds in the above order. In expressions containing like classes of operators, 
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An array element (a subscripted variable) used in an expression requires the evaluation of its subscript. The 
type of the expression in which a function reference or subscript appears does not affect, nor is it affected 
by the evaluation of the arguments or subscripts. 

The evaluation of an expression having any of the following conditions is undefined: 

Negative-value quantity raised to a real, double precision, or complex exponent 
Zero-value quantity raised to a zero-value exponent 
Infinite or indefinite operand (section 4, part 3) 

Element for which a value is not mathematically defined, such as division by zero 

If the error traceback option is selected on the FTN control card (section 11), the first three conditions will 
produce informative diagnostics during execution. If the traceback option is not selected, a mode error 
message is printed (section 4, part 3). 

Two operators must not be used together. A*-B and Z/ + X are not allowed. However, a unary + or - can 
be separated from another operator in an expression by using parentheses. For example, 

A* (-B) andZ/(+X) Valid expressions 
B * -A andx/-Y*Z Invalid expressions 

Each left parenthesis must have a corresponding right parenthesis. 

Example: 

(F + ( X * Y) Incorrect, right parenthesis missing 
(F + (X * Y)) Correct 

Examples: 

In the expression A-B*C 

B is multiplied by C, and the product is subtracted from A. 

The expression A/B-C*D**E is evaluated as: 

D is raised to the power of E. 

A is divided by B. 

C is multiplied by the result of D**E. 

The product of C*D**E is subtracted from the quotient of A divided by B. 

The expression -A**C is evaluated as 0-A**C; A is first raised to the power of C and the result is then 
subtracted from zero. 
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An expression containing operators of equal precedence is evaluated from left to right. 

A / B / C 

A is divided by B. and the quotient is divided by C. (A/B)/C is an equivalent expression. 

The expression a**B**C is. in effect. ((A**B)**C). 

Dividing an integer by another integer yields a truncated result; 11/3 produces the result 3. Therefore, 
when an integer expression is evaluated from left to right, J/K*I may give a different result than I*J/K. 

Example: 

1=4 J = 3 K = 2 
J/K* I I * J / K 

3/2*4 = 4 4*3/2 = 6 

An integer divided by an integer of larger magnitude yields the result 0. 

Example: 

N = 24 M = 27 K = 2 

N/M*K 

24/27*2 = 0 

Examples of valid expressions: 

A 

3.14159 

B + 16.427 

(XBAR + (B(I,J + I,K) /3.0) ) 

-(C + DELTA * AERO) 

(B - SQRT(B**2*(4*A*C)))/(2.0 * A) 

GROSS - ( TAX* 0.04 ) 

TEMP + V(M,MAXF(A,B)}*Y**C/ (H-FACT(K + 3) ) 
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TYPE OF ARITHMETIC EXPRESSIONS 

An arithmetic expression may be of type integer, real, double precision, or complex. The order of 
dominance from highest to lowest is as follows: 

Complex 

Double Precision 

Real 

Integer 


Table 3-1. Mixed Type Arithmetic Expressions with + - * / Operators 



N. 2nd 

1 St ^ N v5P® rantl 

operand 

Integer 

Real 

Double 

Precision 

QHii^ 

Integer 

Integer 



Real 

mu 

Real 

Double 

Precision 

Comp,ex 

Double 

Precision 


Double 

Precision 

mamma 

Complex 


Complex 

US 


W-* ? 






When an expression contains operands of different types, type conversion takes place during evaluation. 
Before each operation is performed, operands are converted to the type of the dominant operand. Thus the 
type of the value of the expression is determined by the dominant operand. For example, in the expression 
A*B-I/J, A is multiplied by B, I is divided by J as integer, converted to real, and subtracted from the result 
of A multiplied by B. 

When an octal or Hollerith constant is used, type is not converted. When these constants are the only operands 
in an expression, the result of the expression is type integer. 
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EXPONENTIATION 


In exponentiation, the following types of base and exponent are permitted: 
Base Exponent 

Integer Integer 

Real Integer 

Double Precision Integer 

Complex Integer 



Dtp exponentation » evaluated from left to 


In an expression of the form A**B the type of the result is determined as follows: 


Typo of A 

Type of B 

Type of Result 
of A**B 

Integer 

Integer 

Integer 


fit; 

1 t ■ ■' ‘ 

Real 

Integer 

Real 


Real 

Real 


^Doutole^ 

Double 

Double 

Integer 

Double 


Real 

Double 


Double 

Double 

Complex 

Integer 

Complex 


The expression -2**2 is equivalent to 0-2**2. An exponent may be an expression. The following examples 
are all acceptable: 


B* *2 • 

B**N 

B* *(2*N-1) 
(A+B)**(-J) 


A negative exponent must be enclosed in parentheses: 
A**(-B) 

NSUM* *(-J) 
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Examples: 


Expression 

Type 

Result 

CVAB**(1-3) 

Real“Integer 

Real 

D* *B 

Real**Real 

Real 

C**I 

Complex*‘Integer 

Complex 

BASE(M,K)**2.1 

Double Precision 
“Real 

Double Precision 

K* *5 

Integer**Integer 

Integer 

314D-02* *3.14D-02 

Double Precision 

“Double Precision 

Double Precision 


RELATIONAL EXPRESSIONS 

a 1 op a 2 

a,,a. Arithmetic or masking expression 

op Relational operator 

A relational expression is constructed from arithmetic or masking expressions and relational operators. 
Arithmetic expressions may be type integer, real, double precision, or complex. The relational operators are: 


GT. 

Greater than 

GE. 

Greater than or equal to 

.LT. 

Less than 

,LE. 

Less than or equal to 

EQ. 

Equal to 

.NE. 

Not equal to 


The enclosing decimal points are part of the operator and must be present. 
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Two expressions separated by a relational operator constitute a basic logical element. The value of this 
element is either true or false. If the expressions satisfy the relation specified by the operator, the value is 
true; if not, it is false. For example: 


X+Y .GT. 5.3 

If X +Y is greater than 5.3 the value of the expression is true. If X +Y is less than or equal to 
5.3 the value of the expression is false. 

A relational expression can have only two operands combined by one operator, a, op a 2 op a 3 is not valid. 

I Relational operands may be of type integer, real, double precision, or complex, but not logical. With complex 
operands, the relational operators .EQ. and .NE. test for equality on both the real and imaginary parts; for all 
other relational operators only the real parts are compared. 


Examples: 

J.LT.ITEM 
580.2 .GT. VAR 
B .GE. (2.7.5.9E3) 
E. EQ. . 5 

(I) .EQ. (J(K)) 
C.LT. 1.5D4 


real part of complex number is used in evaluation 

most significant part of double precision number is used in 
evaluation 


EVALUATION OF RELATIONAL EXPRESSIONS 


Relational expressions are evaluated according to the rules governing arithmetic expressions. Each 
expression is evaluated and compared with zero to determine the truth value. For example, the expression 
p.EQ.q is equivalent to the question, does p - q = 0? q is subtracted from p and the result is tested for zero. 
If the difference is zero or minus zero the relation is true. Otherwise, the relation is false. 


If p is 0 and q is -0 the relation is true. 

Expressions are evaluated from left to right. Parentheses enclosing an operand do not affect evaluation; for 
example, the following relational expressions are equivalent: 


A.GT.B 


A.GT.(B) 
(A).GT.B 
(A).GT.(B) 
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Examples: 


REAL A 

ART .LI. 

A.GT.720 

DOUBLE PRECISION BILL, PAY 

INTEGER I,J 

BILL .LT. PAY 

I.EQ.J(K) 

A+B.GE.Z* *2 

(I) . EQ. (N * J ) 

300.+B.EQ.A-Z 

B.LE.3.754 

.5+2. .GT. .8+AMNT 

Z.LT.35.3D+5 



Examples of invalid expressions: 

A .GT. 720 .LE. 900 2 relational operators must not appear in a relational expression 

B .LE. 3.754 .EQ. C 

LOGICAL EXPRESSIONS 



L,...L n logical operand or relational expression 

op logical operator 

A logical expression is a sequence of logical constants, logical variables, logical array elements, or relational 
expressions separated by logical operators and possibly parentheses. After evaluation, a logical expression 
has the value true or false. 

Logical operators: 

.NOT. or .N. logical negation 

.AND. or .A. logical multiplication 

OR. Of .O. inclusive OR 

The enclosing decimal points are part of the operator and must be present. 
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The logical operators are defined as follows (p and q represent LOGICAL expressions): 

.NOT.p If p is true, .NOT.p has the value false. If p is false, .NOT.p has the 

value true. 

p.AND.q If p and q are both true, p.AND.q has the value true. Otherwise, false. 

p.OR.q If either p or q, or both, are true then p.OR.q has the value true. If both 

p and q are false, then p.OR.q has the value false. 

Truth Table 


p 

q 

p .AND. q 

p .OR. q 

.NOT. p 

1 

i 

1 

1 

0 

1 

0 

0 

1 

0 

0 

i 

0 

1 

1 

0 

0 

0 

0 

1 


If precedence is not established explicitly by parentheses, operations are executed in the following order: 
.NOT. 

.AND. 

OR. 
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Example: 


PROGRAM LOGIC(INPUT,OLTPUT, TAPES s INPUT) 

LOGICAL MALE,PHD,SINGLE,ACCEPT 
INTEGER AGE 
PRINT 20 

20 FORMAT (*i LIST OF ELIGIBLE CANDIDATES*) 

3 READ (5,1) LNAME,FNAME,MALE,PHC,SINGLE,AGE 

1 FORMAT (2A10,3L5,I2) 

IF (EOF(5))6,A 

A ACCEPT = MALE .AND. PPO .AND. SINGLE .AND. (AGE .GT. 25 .AND. 
S AGE .LT. A5) 

IF (ACCEPT) PRINT 2,LNAME,FNAME,AGE 

2 FORMAT (1H0,2A10,3X,I2) 

GO TO 3 

6 STOP 
END 


Data Cards: 

KaLPH EkICSON 
JOHN S. SLIGHT 
MILUKElJ MINSTEK 
JUSTIN BKOWN 
JAMES SMITH 


T T T do 

T T T 

E T T 41 

T T T JO 

T F T til 


Output: 


LIST OF ELIGIBLE CANDIDATES 


JOHN S. SLIGHT 26 

JUSTIN BROWN 30 
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The operator NOT. which indicates logical negation appears in the form: 

.NOT. p 

.NOT. may appear in combination with .AND. or .OR. only as follows (p and q are logical expressions): 
p .AND. NOT. q 
p OR. NOT. q 
p .AND.(.NOT. q ) 
p ,OR.(.NOT. q ) 

.NOT. may appear adjacent to itself only in the form ,NOT.(.NOT.(.NOT.p)) 

Two logical operators may appear in sequence only in the forms .OR..NOT. and .AND..NOT. 

Valid Logical Expressions: 

LOGICAL M,L 
NOT.L 

.NOT. (X .GT. Y) 

X GT. Y AND..NOT.Z 
(L) .AND. M 

Invalid Logical Expressions: 

P,Q, and R are type logical 

.AND. P .AND. must be preceded by a logical expression 

.OR. R .OR. must be preceded by a logical expression 

P.AND. .OR.R .AND. always must be separated from .OR. by a logical expression 
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Aternative Form 


Expression 


expressions are similar 
type variaWc.constiuftt, or ex 


The enclosing 
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Examples 


Expression 


BILL .AND. BOB 


I (.NOT. ( .NOT.(.SOI. A .OB. B))) | ■ ?) 

The operands may be any type variable, constant, or 

' = . •• . ''-*•••' >' y;.\TA . . : ■ v v * 

. v **-* ■ ^ \ -• r' - .* f\ ' 

Examples: r. s, . a , n * c s>* 


. B .OR. C . 

r. . ' ; ,V : * , : -■'■■-.■..*■ -i /e\< 

^ operations operantfit are ednsi<ter^To f T^v^ _'«0 ! : 

operations are performed only oil thfc realpart.ff the open 
s > aifieant word is used. The operation is performed bit-iy^ 
iy 10 bits are shown in the following eawa^fi lSfei^i'ng 

. • iSr ..Vt- -?■■;q 
:■ & •" V v ; . .; • •< v •'.• \-v "*>.■■ . ' .:■ • ^ 

1 
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ffllfiSSI® 




masking expression AND. (.NOT. masking expression) 

: ' ' . . • > 1 - 

* , , t/vr ,, ... 

masking expression .OR. ( NOT. masking expression) 

If an expression contains masking operators Of equal precedence, die expression is 
right. ■ ' ‘ ■: . ■■ ” ;5.r 

^ ‘■S-fo:. : r ' ■ - ■' 

A .AND. B .AND. C 

A .AND. B is evaluated before B .AND! C 

.... ' ■ 

Using the following values: 

A 7777GOOOOOOOOOOOOOOO octal constant 


D 00000000777777777777 octal constant 


B 00000000000000001763 octal form of integer constant 

. ;f." . \ ■ ,.■< -. • • . '' - - . . - * 

C 20045000000000000000 octal form of real constant 


Masking operations produce the following octal results: 


00007777777777777771 

■■ 1 v 

! \ >. l 

20040000000000000060 
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Example: 




' i ! -/1«5 

r - <‘5 


2 

3 


PROGRAM MASK (INPUT,OUTPUT) 
FORMAT (lHlfSXfAHMAME*///) 

PRINT 1 

FORMAT <3AiO,U» 

REAO 2,LNAM£,FNAHE,m*T£#K$»#P 
IFCKSTOP.EQ.il STOP 




7 

- . - - : * ■ : 


• *, . f If, - - • •£ - 

' V*-'- 3 


C IF FIRST TWO CHARACTERS OF ISTATE MOT EQUAL TO CA REAO Nl 

IFC (1ST ATE. AND.77770 000000000000000 B).N£.(2HCA. AN0.7 
'finnnflRn an tn * ■ ■ - • v 


K00000BII GO TO 3 
ii FORMATCSX,2Aifl) 

10 PRINT ii,LNAME f FRAME 

60 TO 3 .7* 

EN0 - ‘ -,; V n 
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ASSIGNMENT STATEMENTS 


1-4 


An assignment statement evaluates an expression and assigns this value to a variable or array element. The 
statement is written as follows: 

v = expression 

v is a variable or an array element 

The meaning of the equals sign differs from the conventional mathematical notation. It means replace the 
value of the variable on the left with the value of the expression on the right. For example, the assignment i 
statement A=B+C replaces the current value of the variable A with the value of B+C. 


ARITHMETIC ASSIGNMENT STATEMENTS 


v = arithmetic expression 


Replace the current value of v with the value of the arithmetic expression. The variable or array element 
can be any type other than logical. 

Examples: 


A-Afl 

N=J-100*20 
WAGE-PAY-TAX 
VAR-VALUE+ ( 7 / 4 ) * 32 
B ( 4 ) =B ( 1 ) +B ( 2 ) 


replace the value of A with the value of A + 1 

replace N with the value of J-100*20 

replace WAGE with the value of PAY less TAX 

replace the value of VAR with the value of VALUE + (7/4)*32 

replace the value of B(4) with the value of B(l) + B(2) 


60305600 B 


14-1 




If the type of the variable on the left of the equals sign differs from that of the expression on the right, type 
conversion takes place. The expression is evaluated, converted to the type of the variable on the left, and 
then replaces the current value of the variable. The type of an evaluated arithmetic expression is 
determined by the type of the dominant operand. Below, the types are ranked in order of dominance from 
highest to lowest: 

Complex 

Double Precision 

Real 

Integer 

In the following tables, if high order bits are lost by truncation during conversion, no diagnostic is given. 


CONVERSION TO INTEGER 



Value Assigned 

Example 

Value of IFORM 

After Evaluation 

Integer = Integer 

Value of integer 
expression re¬ 
places V. 

IFORM = 10/2 

5 

Integer = Real 

Value of real 
expression, trun¬ 
cated to 48-bit 
integer, replaces 

V. 

IFORM = 2.5*2+3.2 

8 

Integer = Double Precision 

Value of double 
precision expres¬ 
sion, truncated to 
48-bit integer, 
replaces v. 

IFORM = 3141.593D3 

3141593 

Integer = Complex 

Value of reaf part 
of complex 
expresrien trun¬ 
cated to 48-bit 
integer reoieces 

V. 

IFORM-fRJA® -Hl.0,2.0) 

■ ■ T ' • - 

• ; ■ ■ ■ ■ _ .■ •: ;• ' ' - 

v ;. T \ •, i \ 

3 ■ 
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CONVERSION TO REAL 



Value Assigned 

Example 

Value of AFORM 

After Evaluation 

Real = Integer 

Value of integer 
expression, trun¬ 
cated to 48 bits, 
is converted to 
real and replaces 

V. 

AFORM =200 + 300 

500.0 

Real = Real 

Value of real 
expression re¬ 
places V. 

AFORM =2.5 + 7.2 

9.7 

Real = Double Precision 

Value of most 
significant part 
of expression re¬ 
places V. 

AFORM = 3421.D - 04 

.3421 

Real = Complex 

Value of real 
part of complex 
expression re¬ 
places V. 

AFORM = (9.2,1.1)-(2.1,5.0) 

. . ; ' ■" 

- ■. '■ ' 

7.1 


CONVERSION TO DOUBLE PRECISION 



Value Assigned 

Example 

Value of SUM 

After Evaluation 

Double Precision = Integer 

Value of integer 
expression, trun¬ 
cated to 48 bits, 
is converted to 
real and replaces 
most significant 
part. Least sig¬ 
nificant part set 
to 0. 

SUM =7*5 

35. DO 

Double Precision = Real 

Value of real 
expression re¬ 
places most 
significant part; 
least significant 
part is set to 0. 

SUM = 7.5*2 

15.DO 
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CONVERSION TO DOUBLE PRECISION (CONTINUED) 



Value Assigned 

Example 

Value of SUM 

After Evaluation 


Double Precision 

= Double Precision 

Value of double 
precision expres¬ 
sion replaces v. 

SUM = 7.322D2 - 32.D -1 

7.29D2 


Double Precision = Complex 

Value of real 
part of complex 
expression re¬ 
places v. Least 
significant part 
is set to 0. 

SUM = {3.2,7.6) + (5.5,1.0) 

ssii 

0000000000000W$0:. 

: ':000. 

: 0 •' ;"<t\ - v 

8.7 DO 

- 

CONVERSION TO COMPLEX 



— 


Value Assigned 

Example 

Value of AFORM 
After Evaluation 


Complex = Integer 

Value of integer 
expression, trun¬ 
cated to 48 bits, 
is converted to 
real, and replaces 
real part of v. 
Imaginary part is 
set to 0. 

AFORM = 2 + 3 

'■^."■000 

’ ■ ■■’ 

■ ■ ■ 

(5.0,00) 

— 

Complex = Real 

Value of real 
expression re¬ 
places real part 
ofv. Imaginary 
part set to 0. 

HK' : \V £ :;V. 


— 

Complex = Double Precision 

Most significant 
part of double 
precision expres¬ 
sion replaces real 
part ofv. Imag¬ 
inary part set to 

0. 

AFORM = 20D0 + 4.4D1 

0000 - '■' 

— 

Complex = Complex 

Value of complex 
expression replaces 
variable. 

AFORM = (3.4,1.1) + (7.3,4.6) 

(10.7,5.7) 
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LOGICAL ASSIGNMENT 


Logical variable or array element = Logical or relational expression 


Replace the current value of the logical variable or array element with the value of the expression 
Examples: 


LOGICAL L0G2 


L0G2 - I .EQ.O 


LOG2 is assigned the value .FALSE, because 1^0 


LOGICAL NSUM,VAR 
BIG - 200. 

VAR - .TRUE. 

NSUM - BIG .GT. 200. .AND. VAR 


NSUM is assigned the value .FALSE. 


LOGICAL A.B.C.D.E.LGA.LGB.LGC 
REAL F.G.H 
A - B.AND.C.AND.D 
A - F.GT.G.OR.F.UT.H 

A - .NOT.(A.AND..NOT.B).AND.(C.OR.D) 

LGA - .NOT.LGB 

LGC - E.OR.LGC.OR.LGB.OR.LGA.OR.(A.AND.B) 


Replace the value of v with the 
type conversion takes place duri 
expression is assigned to the fit 
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INTEGER I,J,K,E,M,mi8) 
REAL B,C,D,£,F(1B) 




MULTIPLE ASSIGNMENT 


expression 


converted to the type of the variable or array el«m<SM*4aring teach 

■■■ ’• i y» 


The value of the expression is 
replacement. 


xamples 



NSUM - BSUM - ISUM - TOTAL - 10.5 - 3.2 

1. TOTAL is assigned the value 7.3 

. 

2. ISUM is assigned the value 7 

( 

3. BSUM is assigned the value 7.0 ■ 

4. NSUM is assigned the value 7 

Multiple assignment is legal in aU types of aseignmem 4t* 
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CONTROL STATEMENTS 


1-5 


FORTRAN statements are executed sequentially. However, the normal sequence may be altered with 


control statements. 


ASSIGN 

PAUSE 

GO TO 

STOP 

IF 

END 

DO 

RETURN 

CONTINUE 



Control may be transferred to an executable statement only; a transfer to a non-executable statement results 
in a fatal diagnostic. Compilation continues, but the program is not executable unless it is compiled in 
debug mode. 

Statements are identified by an integer, 1-99999. Leading zeros are ignored. Each statement number must 
be unique in the program or subprogram in which it appears. 

In the following control statements: 

sn = statement label 

iv = integer variable 

GO TO STATEMENT 

The three GO TO statements are: unconditional, computed, and assigned. 
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UNCONDITIONAL GO TO 


GO TO sn 


Control transfers to the statement labeled sn. 

Example: 

10 A=B+Z 
100 B=*X t Y 

IF(A-B)20,20,30 
20 Z = A 

GO TO io-^-Transfers control to statement 10 

30 Z = B 
STOP 
END 


COMPUTED GO TO 


GO TO ($n r sn 2 .sn m ) , i 


IV 


GO TO (sn 1 ,sn 2 ,..., sn m ), expression 




- ' 

\C; ; 




The comma separating the statement label list and the variable or expression is Optjrii&i. This statement 
causes a transfer to one of the statement labels in parentheses, depending on the value of the variable. The 
variable, iv, can be replaced by an expression. The value of tteWgrtphaft is truncated and converted to 
integer if necessary, and used in place of Iv. 


Example: 

GO T0(10,20,30,20),L 
GO T0( 10,20,30»20)Ii 
The next statement executed will be: 
10 if L * 1 
20 if L = 2 
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30 if L = 3 
20 if L = 4 

The variable must not be specified by an ASSIGN statement. If it is specified by an ASSIGN staternent, the 
object code is incorrect, but no compilation error message is issued. 

If the value of the expression is less than 1. or larger than the number of statement numbers in parentheses, 
the transfer of control is undefined and a fatal error results. For example, execution of the following 
computed GO TO statement will cause a fatal error. 

M=4 

GO TO (100,200,300),M 

Less than 4 numbers are specified in the list of statement numbers; therefore, the next statement to be 
executed is undefined. 
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Examples: 


K=2 

GO TO(100,150,300)K statement 1 50 will be executed next 


K=2 



GO T0(10,1X0,11, 12 ,13) ,X/K control transfers to statement 110 unct tbe l aat f rr 

part of the expression X/K equab 2 


L - 7 

GO TO(35,45,20,10)1-5 statement 45 will be executed next. 


35 Z=R+X 


45 A=X+Y 


20 B=CAT< 


2 


10 ANS-RES+ERROR 


ASSIGN STATEMENT 



7_ 

ASSIGN sn TO iv 


I 


The value of iv is a statement label to which control may transfer. This statement is used in conjunction 
with the assigned GO TO statement, sn must be the label of an executable statement in the same program 
unit as the ASSIGN statement. 


1-54 
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Example: 


ASSIGN 10 TO LSWITCH 

GO TO LSWITCH{5,10,15,20) control transfers to statement 10 

Once the integer variable, iv, is used in an ASSIGN statement, it must not be referenced in any statement, 
other than an assigned GO TO, until it has been redefined. 


ASSIGNED GO TO 



Example: 

ASSIGN 50 TO CHOICE .. , , 

10 GO TO CHOICE,(20.30,40,50) statement 50 is executed immediately after statement 

10 


30 CAT-ZERO+HAT 


40 CAT-10.1-3. 


50 CAT-25.2+7.3 

This statement transfers control to the statement label last assigned to the variable. The assignment must 
take place in a previously executed ASSIGN statement. 

Omitting the list of statement labels (sn,.snj causes a fatal error. If the 

^ueonv^ttefiMofy a statement other than an ASSIGN statement, the results are unpredictable. (A 
transfer is made to the absolute memory address represented by the low order 18 bits of iv.) 

The ASSIGN statement assigns to the variable one of the statement labels specified in parentheses. 

Example: 

GO TO NAPA,(5,15,25) 

If 5 is assigned to NAPA, statement 5 is executed next, if 15 is assigned to NAPA, statement 15 is 
executed next, if 25 is assigned to NAPA, statement 25 is executed next. 
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ARITHMETIC IF 

THREE BRANCH 



(arithmetic or masking expression) sn 1 ,sn 2 ,sn 3 


expression < 0 branch to sn, 
expression = 0 branch to sn, 
expression > 0 branch to sn 3 

This statement transfers control to sn, if the value of the arithmetic or masking expression is less than zero, 
sn, if it is equal to zero, or sn 3 if it is greater than zero. Zero is defined as a word containing all bits set to 
zero or all bits set one (+ 0 or -0). 

Example: 


PROGRAM IF (INPUT,OUTPUT,TAPE5=INPUT,TAPE6-0UTPUT) 
READ (5,100) I,J,K,N 
100 FORMAT (10X.4I4) 

IF(I-N) 3,4,6 

3 ISUM=J+K 

6 CALL ERR0R1 
PRINT 2, ISUM 
2 FORMAT (110) 

4 STOP 
END 


If the type of the evaluated expression is complex, only the real part is tested. 



ARITHMETIC IF 

TWO BRANCH 


1 - 5-6 
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Example: 

IF (I *J *DATA(K))100,101 
100 IF (I*Y*K)105,106 


LOGICAL IF 



(logical or relational expression) stat 


I 


stat is any executable statement other than DO, a logical IF, or END. 

If the expression is true, stat is executed. If the expression is false, the statement immediately following the 
IF statement is executed. 

Examples: 


IF (P.AND.Q) RES=7.2 
50 TEMP=ANS*Z 

If P and Q are both true, the value of the variable RES is replaced by 7.2. Otherwise, the value of 
RES is unchanged. In either case, statement 50 is executed. 

IF (A.LE. 2.5) CASH=150. 

70 B=A+C-TEMF 

If A is less than or equal to 2.5. the value of CASH is replaced by 150. If A is greater than 2.5 
CASH remains unchanged. 

IF (A.LT.B) CALL SUB1 
20 ZETA=TEMP+RES4 

If A is less than B. the subroutine SUB1 is called. Upon return from this subroutine, statement 20 is 
executed. If A is greater than or equal to B. statement 20 is executed, and SUB I is not called. 
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LOGICAL IF 


TWO BRANCH 



If the value of the expression is true, sn, is executed. If the value of the expression is false, sn 2 is executed. 
Example: 

IF(K.EQ.100)60,70 

If K is equal to 100, statement 60 is executed; otherwise statement 70 is executed. 

DO STATEMENT 



sn Terminal statement: an executable statement which must physically follow and reside in the 
same program unit as its associated DO statement. The terminal statement must not be an 
arithmetic or two-branch logical IF, a GO TO, RETURN, END, STOP, PAUSE, or another DO 
statement, or a logical IF containing any of these statements. 

iv Control variable: an integer variable 

m-, Initial parameter Indexing parameters: unsigned integer or octal constants or 

I integer variables with positive values at excution such that 
m 2 Terminal parameter S neither m 1 +m 3 nor m 2 +m 3 is larger than 2 17 -1. If the index- 

\ ing parameters exceed these constraints, the results are unpre- 

m 3 Incrementation parameter / dictable. If m 3 is not specified, it is assigned the value 1. 

The range of a DO loop consists of all executable statements from and including the first executable statement 
after the DO statement to and including the terminal statement. 
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Execution of a DO statement causes the following sequence of operations: 

1 . iv is assigned the value of mj. 

2. The range of the DO loop is executed. 

3. iv is incremented by the value of m 3 . 

4. iv is compared with m- 5 . If the value of iv is less than or equal to the value of m 2 , the sequence 
of operations starting at step 2 is repeated. If the value of iv is greater than the value of m 2 , then 
the DO is said to have been satisfied, the control variable becomes undefined, and control passes to 
the statement following sn. (Note that the range of a DO loop is always executed at least once, 
even if mj exceeds mo on initial entry into the loop.) 

A transfer out of the range of a DO loop is permissible at any time. When such a transfer occurs, the control 
variable remains defined as its most recent value in the loop. If control eventually is returned to the same 
range, the statements executed while control is out of the range are said to define the extended range of the 
DO. The extended range should not contain DO statements. 

The control variable must not be redefined in the range of a DO; such redefinition causes a fatal-to-execution 
diagnostic to be issued. The control variable should likewise not be redefined in the extended range; such 
redefinition causes the results of execution, to be unpredicatable. 

The indexing parameters should not be redefined in either the range or the extended range of a DO. In either 
case, the results of execution will be unpredictable; redefinition in the range of the DO causes an informative 
diagnostic to be issued. 

Examples: 

DO 10 1=1,11,3 

IF(ALIST(I)-ALIST(1 + 1))15,10,10 
15 ITEMF=ALIST(I) 

10 ALIST(I)-ALIST(1+1) 

300 WRITE(6,200)ALIST 

The statements following DO up to and including statement 10 are executed 4 times. The DO loop is 
executed with I equal to 1,4,7,10. Statement 300 is then executed. 


K=3 
J = 5 

DO 100 I=J,K 
RACK=2.-3.5+ANT(I) 

100 CONTINUE 

The DO loop would be executed once only (with 1 = 5) because J is larger than K. 

DO 10 1=1,5 
CAT=B0X+D 

10 IF (X.GT.B.AND.X.LT.H)Z=EQUATE 
6 A=ZERO+EXTRA 

Statement 10 is executed five times whether or not Z = EQUATE is executed. Statement 6 is 
executed only after the DO loop is satisfied. 
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I VAR 


9 


DO 20 I = 1,200 
IF (I-IVAR) 20,10,10 
20 CONTINUE 
10 IN = I 

An exit from the range of the DO is made to statement 10 when the value of the control variable I is equal 
to IVAR. The value of the integer variable, IN, becomes 9. 

LOOP TRANSFER 

The range of a DO statement may include other DO statements providing the range of each inner DO is 
entirely within the range of the containing DO statement. The last statement of an inner DO loop must be 
either the same as the last statement of the outer DO loop or occur before it. 

If more than one DO loop has the same terminal statement, a transfer to that statement may be made only 
from within the range (or extended range) of the innermost DO. When a DO loop contains another DO 
loop, the grouping is called a DO nest. DO loops may be nested to 50 levels. 

Example: 


DIMENSION A(5,4,4), B(4,4) 

DO 2 I = 

1,4 

DO 2 J - 

1,4 

DO 1 K = 

1,5 

1 A (K, J , I) 

= 0.0 

2 B ( J , I) = 

0.0 


Examples: 

DO loops may be nested in common with other DO loops: 
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The preceding diagrams could be coded as follows: 


DO l 1=1,10,2 

DO 2 J=1,5 

DO 3 K=2,8 

3 CONTINUE 

2 CONTINUE 

DO 4 L = 1,3 

4 CONTINUE 


DO 100 L=2,LIMIT 

DO 

5 

1 = 1,5 


DO 

5 

J=I,10 

• 

DO 

5 

K=J , 15 


DO 10 J-1,10 


5 A = B*C 

10 CONTINUE 


DO 20 K=K1,K2 


20 CONTINUE 


100 CONTINUE 


1 CONTINUE 

A DO loop may be entered only through the DO statement. Once the DO statement has been executed, and 
before the loop is satisfied, control may be transferred out of the range and then transferred back into the 
range of the DO. 

A transfer from the range of an outer DO into the range of an inner DO loop is not allowed. However, a 
transfer out of the range of an inner DO into the range of an outer DO is allowed because such a transfer 
is within the range of the outer DO loop. 


Illegal 


Legal 
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The use of, and return from, a subprogram within a DO loop is permitted. A transfer back into the range 
of an innermost DO loop is allowed if a transfer has been made from that same loop. 



When a statement is the terminal statement of more than one DO loop, the label of that terminal statement 
may not be used in any GO TO or IF statement in the nest, except in the range of the innermost DO. 

Example: 


DO 

10 

J=1,50 

DO 

10 

1=1,50 

DO 

10 

M=1,100 


GO TO 10 

10 CONTINUE 

When the IF statement is used to bypass several inner loops, different terminal statements for each loop are 
required. 
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Example: 


DO 10 K-1,100 
IF(DATA(K)-10.)20,10,20 
20 DO 30 L=1,20 

IF(DATA(L)-FACT*K-10.)40,30,40 
40 DO 50 J-1,5 


GO TO (101,102,50).INDEX 
101 TEST=TEST+1 
GO TO 104 
103 TEST=TEST-1 

DATA(K)=DATA(K)*2.0 


50 CONTINUE 
30 CONTINUE 
10 CONTINUE 


GO TO 104 
102 DO 109 M=1,3 


109 CONTINUE 
GO TO 103 
104 CONTINUE 


In the following illustration, transfers 2, 3, and 4 are acceptable; I, 5, and 6 are not. 

- ^ 1 

fp) 2 

Lj) 3 

4 

5 

6 
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CONTINUE 



5 7 


sn CONTINUE 


Example: 

DO 10 I = 1,11 
IF (A(I)-A(1+1)20,10,10 
20 ITEMPF = A(I ) 

A (I) - A (1+1) 

10 CONTINUE 

CONTINUE is a statement that may be placed anywhere in the source program without affecting the 
sequence of execution. It is used most frequently as the last statement in the range of a DO loop to avoid 
ending the loop with an illegal statement. The CONTINUE statement should contain a statement label in 
columns 1-5. If it does not. it serves no purpose: and an informative diagnostic is provided. 

DO 20 1=1,20 

1 IF (X(I) - Y(I))2,20,20 

2 X(I)-X(I)+1.0 
Y(I)=Y(I ) -2.0 
GO TO 1 

20 CONTINUE 

The use of the CONTINUE statement avoids ending the DO loop with the statement GO TO I. 

PAUSE 


PAUSE 


PAUSE n 


PAUSE * C...C + 


n is a string of 1-5 octal digits. 
c...c is a string of 1-70 characters. 

When a PAUSE statement is encountered during execution, the program halts and PAUSE n, or c...c, 
appears as a day file message on the display console. The operator can continue or terminate the program 
with an entry from the console. The program continues with the next statement. If n is omitted, blanks are 
implied. 
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STOP 




n - 

i 

i 

i 

STOP 



n 

i 

i 

i 

7 

STOP n 



n 

i 

i 

STOP * c ... c 4 



n is a string of 1-5 octal digits, 
c.. .c is a string of 1-70 characters. 

When a STOP statement is encountered during execution, STOP n, or STOP c.. .c, is displayed in the dayfile, 
the program terminates and control returns to the operating system. If n is omitted, blanks are implied. A 
program unit may contain more than one STOP statement. 


END 


END 


The END line indicates to the compiler the end of the program unit. Every program unit must physically 
terminate with an END line. 

The END line can follow a statement separator S and can be continued. Comment lines after the END line 
are listed immediately after the END line; not at the beginning of the next program unit. Any non-comment 
line, including a blank line, after the END line denotes the start of the next program unit. 

If control flows into an END line it will be treated as if a RETURN statement had preceded the END. 
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RETURN 


RETURN 


RETURN i 


i is a dummy argument which appears in the RETURNS list 


The effect of a RETURN statement depends on the kind of program unit as follows: 

In a SUBROUTINE: Control returns to the next executable statement following the CALL in the cal¬ 
ling routine. 


In a FUNCTION: Control returns to complete the evaluation of the expression referencing the function. 

In a main program, which may be a (0,0) overlay: Execution of the program terminates and control 
returns to the operating system. 

In a primary or secondary overlay: Control returns to the next executable statement after the CALL 
OVERLAY that caused loading and execution of the higher level overlay. 


Example: 


A = SUBFUN (D,E) 
10 DO 200 1-1,5 


FUNCTION SUBFUN(X,Y) 
SUBFUN = X/Y 
RETURN 
END 


RETURN i can appear only in a SUBROUTINE subprogram with a RETURNS fist. (A RETURN i in a 
FUNCTION subprogram causes a fatal error at compilation time.) The statement labels in the RETURNS 
list in the CALL statement correspond to the dummy statement labels in the SUBROUTINE statement in 
the SUBROUTINE subprogram. When a SUBROUTINE subprogram is called, the actual statement labels 
replace the dummy statement labels. Execution of RETURN i returns control to the statement label 
corresponding to i in the RETURNS list. 
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Example 


PROGRAM MAIN (INPUT,OUTPUT) 


10 CALL XCOMP(A,B,C),RETURNS(101,102,103,104) 


101 CONTINUE 


GO TO 10 
102 CONTINUE 


GO TO 10 
104 CONTINUE 
END 


SUBROUTINE XCOMP (B1,B2,G).RETURNS{A1,A2,A3,A4) 
IJ'{B1*B2~4.159) 10,20,30 
10 CONTINUE §S W&l . 


RETURN A1 


20 CONTINUE 



50 RETURN A4 
END 


Program MAIN passes statement iabels 101,102,103 and 104 to subroutine XCOMP to replace the 
dummy RETURNS arguments A1,A2,A3 and A4. IT RETURN A1 is reached in the subroutine, a 
return is made to statement 101; if A2 is reached, a return is made to statement 102, A3 to 103, and 
A4 to 104. 
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Example: 


FUNCTION Y(X) 

IF (X.LT. 3.2) GO TO 30 
40 Y = 0.7 * X + 1.237 
RETURN 

30 Y - 0.012 * X + 7.2 
RETURN 
END 
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SPECIFICATION STATEMENTS 


1-6 


Specification statements are non-executable; they define the type of a variable or array, specify the amount 
of storage allocated to each variable according to its type, specify the dimensions of arrays, define methods 
of sharing storage, and assign initial values to variables. 



DIMENSION 

COMMON 

EQUIVALENCE 

EXTERNAL 



The IMPLICIT statement must precede other specification statements 


If any of these statements appear after the first executable statement or 
statement function definition, it is ignored and a fatal diagnostic is 
printed. 


DATA 


The DATA statement must follow all other specification statements and 
precede the first executable statement. 


TYPE STATEMENTS 

A type statement explicitly defines a variable, array, or function to be integer, real, complex, double 
precision, or logical. The type statement may be used to supply dimension information. 


A symbolic name not explicitly defined in a type, FUNCTION statement is implicitly defined 

as type integer if the first letter of the name is I,J,K,L,M,N; if it is any other letter, the type is real. An 
explicit definition can override or confirm an implicit definition. 


Basic external and intrinsic functions are implicitly typed, and need not appear in a type statement in the 
user’s program. The type of each library function is listed in section 8. 
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EXPLICIT DECLARATIONS 

INTEGER 



The symbolic names listed are declared to be of type integer. 

Example: 

INTEGER SUM, RESULT, ALIST 

The variables SUM, RESULT and ALIST are all defined as type integer. 
REAL 



Example: 

REAL LIST,J0B3.MASTER4 

The variables LIST, JOB3, and MASTER4 are all defined as type real. 
A real variable is stored in floating point format in one word in memory. 
COMPLEX 



The symbolic names listed are defined as type complex. 

Example: 

COMPLEX ALPHA, NAM, MASTER, BETA 

The variables ALPHA, NAM, MASTER. BETA are defined as type complex. 

A complex variable is stored as two floating point numbers in two consecutive 60-bit words in memory; the 
first word is the real part, and the second word is the imaginary part. 
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DOUBLE PRECISION 


7 _ 

/ | DOUBLE PRECISION name,, name.,... .name 

I 1 2 n 

I 

I 

Double precision variables occupy two consecutive words of memory: the first for the most significant part 
and the second for the least significant part. 

The symbolic names listed are declared to be of type double precision. DOUBLE may be used instead of 
DOUBLE PRECISION. 

Example: 

DOUBLE PRECISION ALIST, JUNR, B0X4 
The variables ALIST. JUNR. BOX4 are defined as type double precision. 

LOGICAL 



The symbolic names listed are defined as type logical. 

Example: 

LOGICAL P , Q , NUMBR4 

The variables P.Q and NUMBR4 are defined as type logical. 

IMPLICIT STATEMENT 


7 



type LOGICAL. INTEGER. REAL. DOUBLE PRECISION, or COMPLEX 

lac) Single alphabetic character, or range of characters represented by the first and last 

character separated by a minus sign, ac must be enclosed in parentheses. 

Example: 

IMPLICIT REAL ( I-M, X) , COMPLEX (A-D.N) 
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This statement specifies the type of variables or array elements beginning with the letters ac. Only one 
IMPLICIT statement may appear in a program unit, and it must precede other specification statements. An 
IMPLICIT statement in a FUNCTION or SUBROUTINE subprogram affects the type of dummy 
arguments and the function name, as well as other variables in the subprogram. 

Explicit typing of a variable name or array element in a type statement or FUNCTION statement overrides 
an IMPLICIT specification. 

Examples: 

IMPLICIT INTEGER(A-D,N,R) 

DIMENSION GRAD (10,2) 

ASUM = BOR + ROR * ANEXT 
DECK - CROWN + B 

The variables ASUM, BOR, ROR, ANEXT, DECK, CROWN and B are of type integer. 

An IMPLICIT statement cannot be used to dimension an array. The IMPLICIT statement must also precede all other 
specification statements. 

PROGRAM COME (OUTPUT.TAPE6=0UTPUT) 

IMPLICIT INTEGER (A-F.H) 

DIMENSION £(3*4) 

COMMON A(l)*B*C*D. F*G»H 
EQUIVALENCE (A,E*1) 

NAMELIST/VLIST/A.B*C*0*E*F*G*H*I 

DO 1 J * 1* 12 
1 A(J)=J 

WRITE (6»VLIST) 

STOP 

END 


1-6-4 


60305600 D 


SUBSCRIPTS 


A subscripted symbolic name in the type specification is the name of an array, and the product of the 
subscripts is the number of elements in the array. 

Example: 

INTEGER ZERO(3,3) 

defines ZERO as an array of type integer containing 9 integer elements. 

REAL NEXT(7).ITEM 

defines NEXT as an array with 7 real elements, and ITEM as a real variable 
INTEGER CANS(10),NRUMS(7,3).BOX 


defines CANS as an integer array with 10 elements. NRUMS as an integer array with 21 elements, 
and BOX as an integer variable 

Dimension information should be specified only once for any array name, a second specification is ignored 
but a warning message is printed. 

Examples: 

INTEGER ZERO(3,3) 

DIMENSION ZERO(4,3) 

INTEGER CAT 
DIMENSION CAT(4,3,2) 

These statements could be shortened to one statement: 

INTEGER CAT (4,3,2) 


invalid if both statements appear in the same program: second 
definition is ignored 

valid; CAT is an integer array 


60305600 B 


1-6-5 


DIMENSION STATEMENT 



d, Array declarator, 1-3 integer constants. In a subprogram DIMENSION 

statement, they can be integer variables. 

name,,...,name n Symbolic name of an array 

PROGRAM SUM (INPUT«0UTPUT*TAPE5=INPUT»TAPE6*0UTPUT) 
DIMENSION INK (10) 

READ (5*100) INK 
100 FORMAT (1014) 

DO 4 I = 1*10 
4 ITOT = ITOT ♦ INK(I) 

WRITE (6*200) ITOT 
200 FORMAT (10X,*TOTAL = ** 14) 

END 

DIMENSION is a non-executable statement which defines symbolic names as array names and specifies the 
bounds of the array. 

Example: 

DIMENSION TOTAL (7,2) 

TOTAL is defined as a real array of 14 elements. 

More than one array can be declared in a single DIMENSION statement. 

Example: 

DIMENSION A(IO),B(7,5),0(20,2,4) 

The number of computer words reserved for an array is determined by the product of the subscripts and 
the type of the array. For real, integer and logical arrays, the number of words in an array equals the 
number of elements in the array. For complex and double precision arrays, the number of words reserved is 
twice the product of the subscripts. No array can exceed 131,071 words. 
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Example: 

COMPLEX BETA 
DIMENSION BETA (2,3) 

BETA is an array containing six elements: however. BETA has been defined as COMPLEX and two 
words are used to contain each complex element; therefore. 12 computer words are reserved. 

REAL NIL 

DIMENSION NIL (6,2,2) reserves 24 words for the array NIL 

Example: 

DIMENSION ASUM(10,2) 


DIMENSION ASUM (3), VECTOR (7,7) 

The second specification of ASUM is ignored, and an informative message is printed. The specification for 
VECTOR is valid and is processed. 


ADJUSTABLE DIMENSIONS 

Within a subprogram, array dimension specifications may use integer variables, as well as integer constants, 
provided the array name and all the variable names used for array dimension specifications are dummy 
arguments of the subprogram. The actual array name and values for the dummy variables are defined by 
the calling program. 

FUNCTION DTOTAL (ARRAY,N) 

DIMENSION ARRAY (N,N) 

DTOTAL = 0. 

DO 1 I = 1,N 

1 DTOTAL = DTOTAL + ARRAY (1,1) 

RETURN 

END 

The above function totals the elements on the major diagonal of any square array. The array name and dimen¬ 
sions are arguments of the function. 

A further explanation of adjustable dimensions appears in section 7. 
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COMMON 



blkname Block name or number enclosed in slashes. A block name is a symbolic 

name. A block number is 1-7 digits; it must not contain any alphabetic 
characters. Leading zeros are ignored. 0 is a valid block number. The 
same block name or number can appear more than once in a COMMON 
statement or a program unit; the loader links all variables in blocks having 
the same name or number into a single labeled common block. 


v,,...,v n Variables or array names which can be followed by constant subscripts 

that declare the dimensions. The variable or array names are assigned to 
blkname. The COMMON statement can contain one or more block 
specifications. 

// Denotes a blank common block. If blank common is the first block in the 

statement, slashes can be omitted. 

Example: 

PROGRAM CMN (INPUT^OUTPUT) 

COMMON NED (10) 

READ 3*NED 
3 FORMAT (1013) 

CALL JAVG 

STOP 

END 


Variables or arrays in a calling program or a subprogram can share the same storage locations with 
variables or arrays in other subprograms by means of the COMMON statement. Variables and array names 
are stored in the order in which they appear in the block specification. 

COMMON is a non-executable statement. See section III-9 for proper location of COMMON statements relative 
to other statements in the program unit. The COMMON specification provides up to 125 storage blocks that 
can be referenced by more than one subprogram. A block of common storage can be labeled by a name or a 
number. A COMMON statement without a name or number refers to a blank common block. Variables and 
array elements can appear in both COMMON and EQUIVALENCE statements. A common block of storage can 
be extended by an EQUIVALENCE statement; however, no common block can exceed 131,071 words. 
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All members of a common block must be allocated to the same level of storage; a fatal diagnostic is issued if 
conflicting levels are declared. If only some members of a common block are declared in a LEVEL statement, 
the remaining members of that common block are allocated automatically to the same level; and an informative 
diagnostic is issued. 

Block names can be used elsewhere in the program as symbolic names, and they can be used as subprogram 
names. Numbered common is treated as labeled common. Data stored in common blocks by the DATA 
statement is available to any subprogram using these blocks. 

The length of a common block, other than blank common, must not be increased by a subprogram using 
the block unless the subprogram is loaded first by the operating system loader. 

Example: 

COMMON/BLACK/A(3) 

DATA A/1.,2.,3./ 

COMMON/100/1(4) 

DATA 1/4,5,6,7/ 

Data may not be entered into blank common blocks by the DATA declaration. 

The COMMON statement may contain one or more block specifications: 

COMMON/X/RAG,TAG/APPA/Y,Z,B(5 ) 

RAG and TAG are placed in block X. The array B and Y.Z are placed in block APPA. 

Any number of blank common specifications can appear in a program. Blank, named and numbered 
common blocks are cumulative throughout a program, as illustrated by the following example: 

COMMON A,B,C/X/Y,Z,D//W,R 


COMMON M.N/CAT/ALPHA,BINGO//ADD 

These statements have the same effect as the single statement: 

COMMON A,B,C,W,R,M,N,ADD/X/Y,Z,D/CAT/ALPHA,BINGO 

Within subprograms, dummy arguments are not allowed in the COMMON statement. 

If dimension information for an array is not given in the COMMON statement, it must be declared in a 
type or DIMENSION statement in that program unit. 
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Examples: 


COMMON/DEE/Z(10,4) 

Specifies the dimensions of the array Z and enters Z into labeled common block DEE. 

COMMON/BLOKE/ANARAY.B.D 
DIMENSION ANARAY(10,2) 

COMMON/Z/X,Y,A 
REAL X(7) 

COMMON/HAT/M.N,J(3,4) 

DIMENSION J(2,7) 

In the last example, J is defined as an array (3.4) in the COMMON statement. (2.7) in the 
DIMENSION statement is ignored and an error message is printed. 

The length of a common block, in computer words, is determined by the number and type of the variables 
and array elements in that block. In the following statements, the length of common block A is 12 computer 
words. The origin of the common block is Q( 1). 

REAL Q,R 
COMPLEX S 

COMMON/A/Q(4),R(4),S(2) 

Block A 

origin Q( 1) 

Q(2) 

Q(3) 

Q(4) 

R(l) 

R(2) 

R(3) 

R(4) 

S( 1) real part 

S( 1) imaginary part 

S(2) real part 

S(2) imaginary part 

If a program unit does not use all locations reserved in a common block, unused variables can be inserted 
in the COMMON declaration in the subprogram to ensure proper correspondence of common areas. 
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Example: 


COMMON/SUM/A,b,C,d main program 
COMMON/SUM/E(3) ,D subprogram 

If the subprogram does not use variables A,B, and C, array E is necessary to space over the area 
reserved by A,B, and C. 

Alternatively, correspondence can be ensured by placing unused variables at the end of the common list. 

COMMON/SUM/D,A,B,C main program 
COMMON/SUM/D subprogram 

If program units share the same common block, they may assign different names and types to the members 
of the block; but the block name or numbers must remain the same. 

Example: 

PROGRAM MAIN 
COMPLEX C 

COMMON/TEST/C(20)/36/A,B,Z 

The block named TEST consists of 40 computer words. The length of the block numbered 36 is three 
computer words. 

The subprogram may use different names as in: 

SUBROUTINE ONE 
COMPLEX A 

COMMON/TEST/A(10),G(10),K(10) 

The length of TEST is 40 words. The first 10 elements (20 words) of the block represented by A are 
complex elements. Array G is the next 10 words, and array K is the last 10 words. Within the 
subprogram, elements of G are treated as floating point; elements of K are treated as integer. 
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EQUIVALENCE STATEMENT 


7 



EQUIVALENCE (gltst 1 ),_(glist n ) 


Each glistj consists of two or more variables, array elements, or array names, separated by commas. 


Array elements must have integer constant subscripts. Dummy arguments must not appear in an equivalence 
statement. Equivalenced variables must be assigned to the same level of storage. 

EQUIVALENCE is a non-executable statement and must appear before all executable statements in a pro¬ 
gram unit. If it appears after the first executable statement, a fatal diagnostic is printed. 

EQUIVALENCE assigns two or more variables in the same program unit to the same storage location (as 
opposed to COMMON which assigns two variables in different program units to the same location). Variables 
or array elements not mentioned in an EQUIVALENCE statement are assigned unique locations. 

Example: 

DIMENSION JAN(6),BILL(10) 

EQUIVALENCE (IRON,MAT,ZERO), ( JAN(5),BILL(2)),(A,B,C) 

The variables IRON, MAT and ZERO share the same location, the fifth element in array JAN and the 
second element in array BILL share the same location, and the variables A,B and C share the same location. 

When an element of an array is referred to in an EQUIVALENCE statement, the relative locations of the 
other array elements are, thereby, defined also. 

Example: 

DIMENSION Y(4), B(3,2) 

EQUIVALENCE (Y,B(1,2)), (X,Y(4)) 

This EQUIVALENCE statement causes storage to be shared by the first element in Y and the fourth 


element in B and, similarly, 

the variable X and the fourth element in Y. Storage will be as follows 

B(l.l) 


B(2.1) 


B(3,l) 


B( 1,2) 

Y(l) 

B(2.2) 

Y(2) 

B( 3,2) 

Y(3) 


Y(4) X 


The statement EQUIVALENCE(A.B),(B.C) means the same as EQUIVALENCE (A.B.C). 


1 - 6-12 


60305600 E 


When no array subscript is given, it is assumed to be 1. 


DIMENSION ZEBRA(10) 

EQUIVALENCE (ZEBRA,TIGER) 

Means the same as the statements: 

DIMENSION ZEBRA(10) 

EQUIVALENCE (ZEBRA(1),TIGER) 

A logical, integer, or real entity equivalenced to a double precision or complex entity shares the same 
location as the real or most significant part of the complex or double precision entity. 
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An array with multiple dimensions may be referenced with a single subscript. The location of the element 
in the array may be determined by the following method: 

DIMENSION A(K,M,N) 

The position of element A(k,m,n) is given by: 

A+(k-l+K*(m-l+M*(n-l)))*E 

E is 1 if A is real, integer or logical: E is 2 if A is complex or double precision. 


Example: 

DIMENSION AVERAG(2,3,4),TERM(7) 

EQUIVALENCE (AVERAG(8),TERM( 2) ) 

Elements AVERAG (2,1,2) and TERM(2) share the same locations. 

Two or more arrays can share the same storage locations. 

Example: 


DIMENSION ITIN(IO.IO),TAX{100) 
EQUIVALENCE(ITIN,TAX) 


500 READ (5,40)ITIN 


600 READ (5,70) TAX 

The EQUIVALENCE declaration assigns the first elements of arrays ITIN and TAX to the same 
location. READ statement 500 stores the array ITIN in consecutive locations. Before READ 
statement 600 is executed, all operations involving ITIN should be completed; as the values of array 
TAX are read into the storage locations previously occupied by ITIN. 

Lengths of arrays need not be equal. 

Examples: 

DIMENSION ZER01(10,5),ZERO2(3,3) 

EQUIVALENCE ( ZEROl, ZER02 ) is a legal EQUIV ALENCE statement 

EQUIVALENCE (ITEM,TEMP) 

The integer variable ITEM and the real variable TEMP share the same location: therefore, the same 
location may be referred to as either integer or real. However, the integer and real internal formats 
differ: therefore the values will not be the same. 
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Example: 


PROGRAM COME (OUI PUT♦TAPEb=OUTPUT) 

CuMMON Ali)*b»C»0» f♦ G * H 
integer a*b»c*o*e(j*4)»f» h 
EQUIVALENCE (AtEtl) 

NAMELlST/VLlST/At6tCtO»EtF,GtH,I 

DU 1 J - 1 * 12 
l A<J)=J 

WRITE (6* VL1ST) 

STOP 

end 

Output from Program COME: 

iVUST 

A * it 

8 = 2 . 

C s 3* 

0 = 41 

E * it 2t 3* 4» 5t &t 7* 8* 9» iOt lit 

F =5, 

G = O.Gt 

H * 7, 

I = it 

$EN0 


An explanation of this example appears in part 2. 


12t 
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EQUIVALENCE AND COMMON 


Variables, array elements, and arrays may appear in both COMMON and EQUIVALENCE statements. A 
common block of storage may be extended by an EQUIVALENCE statement. 

Example: 


COMMON/HAT/A(4),C 
DIMENSION B(5) 

EQUIVALENCE (A(2),B(1)) 

Common block HAT will extend from A(l) to B(5): 


/HAT/ 


Origin 


A(l) 


A(2) 

B(l) 

A(3) 

B(2) 

A(4) 

B(3) 

C 

B(4) 


B(5) 


EQUIVALENCE statements which extend the origin of a common block are not allowed, however. 


Example. 


COMMON/DESK/E,F,G 
DIMENSION H(4) 
EQUIVALENCE (E,H(3)) 


The above EQUIVALENCE statement is illegal because H(l) and H(2) extend the start of the 
common block DESK: 

/DESK/ 

H(l) 

H(2) 

origin E H(3) 

F H(4) 

G 

An element or array is brought into COMMON if it is equivalenced to an element in COMMON. Two elements in 
COMMON must not be equivalenced to each other. 
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Examples: 


COMMON A,B,C 

EQUIVALENCE (A, B ) illegal 

COMMON /HAT/ A(4),C /X/ Y,Z 
EQUIVALENCE (C,Y) illegal 



n Unsigned integer 1. 2. or 3 indicating level to which list is to be allocated. 


1 Small core memory resident (SCM) 

Large core memory resident (LC,V1). Directly addressable (or word addressable) 

Large core memory resident, accessed by block transfer to or from small core memory 
through MOVLF.V subroutine call 

I I Central memory resident 

2 Central memory resident 

3 Extended core storage resident, accessed by block transfer to or from central memory 

through MOVLEV subroutine call 

This statement assigns variables or array names to the level n. LEVEL statements must precede the first 
executable statement in a program unit. Names of variables and arrays which do not appear in a LEVEL 
statement are allocated to central memory. 

No dimension or type information may be included in the LEVEL statement. 

Variables and arrays appearing in a LEVEL statement can appear in DATA. DIMENSION, EQUIVALENCE, 
COMMON, type, SUBROUTINE and FUNCTION statements. Data assigned to levels 2 and 3 must appear also 
in COMMON statements or as dummy arguments in SUBROUTINE or FUNCTION statements. 


§Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers, 
i Applies only to CONTROL DATA CYBER 70/Models 72, 73 and 74 and 6000 Series computers. 
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Data assigned to level 3 can be referenced only in: COMMON, DIMENSION, EQUIVALENCE, DATA, CALL, 
SUBROUTINE, and FUNCTION statements. Level 3 items cannot be used in expressions. 

No restrictions are imposed on the way in which reference is made to variables or arrays allocated to levels 
1 and 2. 

If the level of any variable is multiply defined, the level first declared is assumed; and a warning diagnostic 
is printed. 

All members of a common block must be assigned to the same level; a fatal diagnostic is issued if 
conflicting levels are declared. If some, but not all, members of a common block are declared in a LEVEL 
statement, all are assigned to the declared level, and an informative diagnostic is printed. 

If a variable or array name declared in a LEVEL statement appears as an actual argument in a CALL 
statement, the corresponding dummy argument must be allocated to the same level in the called 
subprogram. 

If a variable or array name appears in an EQUIVALENCE and a LEVEL statement, the equivalenced 
variables must all be allocated to the same level. 

Example: 

DIMENSION E(500),B(500),CM(1000) 

LEVEL 3, E,B 
COMMON /ECSBLK/ E,B 


CALL MOVLEV (CM,E,1000) 

The LEVEL statement allocates arrays E and B to extended core storage. They are assigned to a named 
common block, ECSBLK. Starting at location CM (the first word address of the array CM), 1000 words of 
central memory are transferred to the two arrays E and B in extended core storage by the library routine 
MOVLEV. 


EXTERNAL STATEMENT 


7 



EXTERNAL name, 


I 

I 


,..., name 

' 7 n 


name,.name,, Subprogram names 

Before a subprogram name is used as an argument to another subprogram, it must be declared in an 
EXTERNAL statement in the calling program. 
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Any name used as an actual argument in a call is assumed to be a variable or array unless it appears in an 
EXTERNAL statement. An EXTERNAL statement must be used even if the subprogram concerned is a 
standard system function, such as SQRT. However, an EXTERNAL statement is not required for intrinsic 
functions used as actual arguments. If an intrinsic function name appears in an EXTERNAL statement, the 
user must supply the function. 

Example: 

Calling Program 

EXTERNAL SIN, SQRT 
CALL SUBRT(2.0,SIN,RESULT) 

WRITE (6,100) RESULT 
100 FORMAT (F7.3) 

CALL SUBRT(2.0,SQRT,RESULT) 

WRITE (6,100(RESULT 
STOP 
END 

First the sine, then the square root are computed; and in each case, the value is returned in 
RESULT. The EXTERNAL statement must precede the first executable statement, and always 
appears in the calling program. (It may not be used with statement functions.) 

A function call that provides values for an actual argument does not need an EXTERNAL statement. 

Example: 

Calling Program Subprogram 

CALL SUBRT(SIN(X).RESULT) SUBROUTINESUBRT(A,B) 


Subprogram 

SUBROUTINE SUBRT (A,B,C) 
X=A+3.14159/2. 

C=B(X) 

RETURN 

END 


B=A 


END 

An EXTERNAL statement is not required because the function SIN is not the argument of the 
subprogram; the evaluated result of SIN(X) becomes the argument. 
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Example: 


PROGRAM VARDIM2(0UTPUT*TAPE6*0UTPUT»DEBUG*0UTPUT) 
COMMON X(4*3) 

REAL Y(6) 

EXTERNAL MULT* AVG 
NAMELIST/V/X*Y*AA*AM 
CALL SET(Y*6*0,) 

CALL IOTA(X* 12) 

CALL INC(X*12*-5.) 

AA=PVAL(12«AVG) 

AM=PVAL(12*MULT) 

WRITE(6*V) 

STOP 

END 


C 


FUNCTION AVG(J) k ^ 

AVG COMPUTES THE AVERAGE OF THE FIRST J ELEMENTS OF COMMON, 

COMMON A(100) 

AVG=0. 

DO 1 I * ItJ 

1 AVG-AVG*A(I) 

AVG=AVG/FLOAT(J> 

RETURN 

END 


REAL FUNCTION MULT(J) 

COMMON ARRAY(12) 

MULT=ARRAY(12)*ARRAY(1)-AVG(J/2) 

RETURN 

END 


An explanation of this example appears in part 2. 
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DATA STATEMENT 


/ 


_7_ 

DATA vlist 1 /dlist 1 /,..., vlist n /dlist n / 



r\ 

i 

i 


DATA (var = dlist),.... (var = dlist) 



var Variable, array element, array name or implied DO 

vlist List of array names, array elements, variable names, or an implied DO loop, separated by 

commas. Unless they appear in an implied DO loop, array elements must have integer constant 
subscripts. 

dlist One or more of the following forms separated by commas: 

constant 
(constant list) 
rf*constant 
rf*(constant list) 
rf(constant list) 

constant list List of constants separated by commas 

rf Integer constant. The constant or constant list 

is repeated the number of times indicated by 
rf. 


The data statement is non-executable and must follow all specification statements. It assigns initial values to vari¬ 
ables or array elements. Only variables assigned values by the DATA statement have specified values when program 
execution begins. The DATA statement cannot be used to assign values in blank common or to dummy argu¬ 
ments. 

The number of items in the data list should agree with the number of variables in the variable list. If the data 
list contains more items than the variable list, excess items are ignored, and an informative diagnostic is printed. 
If the data list contains fewer items than the variable list, remaining variables are not defined, and an informative 
diagnostic is printed. 

The type of the constant in the data list should agree with the type associated with the corresponding name 
in the variable list. If the types do not agree, the form of the value stored is determined by the constant used 
in the DATA statement rather than by the type of the name in the variable list. 
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Data cannot be entered into blank common with a DATA statement. 

When a Hollerith specification is used in a DATA statement, it should not exceed 10 characters. 

For example, to store the following values in an array A 

A( 1) = 1234567890 

A(2) = ABCDEFGHIJ 

A(3) = KLMNOPQRST 

A(4) = UVWXYZ + - * 

The following statements should be used: 

DIMENSION A(4) 

DATA A/10H1234567890,10HABCDEFGHIJ,1OHKLMN0PQRST,10HUVWXYZ+- */ 

The following statements would not produce the desired result: 

DIMENSION A(4) 

DATA A/20H1234567890ABCDEFGHIJ,20HKLMN0PQRSTUVWXYZ+- */ 

They would initialize 
A( 1) 1234567890 
A(2) KLMNOPQRST 
A(3) UVWXYZ + - * 

A(4) undefined 

The implied DO loop may be used to store values into arrays. 

Example: 

REAL ANARAY(10) 

DATA (ANARAY(I),I = 1,10)/I.,2.,3.,7*2.5/ 

Values stored in array ANARAY: 

ANARAY(l) 1. 

2 . 

3. 

2.5 

2.5 

2.5 

2.5 

2.5 

2.5 

ANARAY(IO) 2.5 

When an implied DO is used to store values into arrays, only one array name can be used within the 
implied DO nest. 

Example: 

Invalid: DATA (A( I) ,B( I) ,1-1,3)/l. ,2. ,3. ,4. ,5. ,6. / 
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Examples 


Means repeat the real constants 
Means repeat the 


PROGRAM DATA C (OUTPUT,TAPE6«0UTPUTI 
COMPLEX Z(3),21 
REAL A(4) 

LOGICAL L w , 4 . - 

namelist/out/i,l,x,zi*a,z 592t 

DATA I, L,X,Z1»A,Z/5,.TRUE.»3.141SW 
1 3*< (1. 

HRITE(6,0UT» 

STOP 

END 


« T* 

a 0.31*l 5 926536E*0l, 

« ( 0.21E*0l,-0.3E*0l>* 
s 0.1E*0l, 0,2E*0l, 

s ( o.ie^^i^o.ise^oi) » 


» 0.2E*01* 

( 0*1E*01.-0.15E*01) 


SEND 
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F.xample: 


DIMENSION AMASS(10,10,10), A(10), B(5) 

DATA (AMASS(6,K,3),K=1,10)/4*(-2.,5.139),6.9,10./ 
DATA (A(I),I=5,7)/2*(4.1),5.0/ 

DATA B/5 * 0.0/ 


ARRAY AMASS: 


ARRAY A 


AMASS(6,1,3) 

- -2. 

A(5) = 

4.1 

AMASS(6,2,3) 

- 5.139 

A{6) - 

4.1 

AMASS(6,3,3) 

= -2. 

A ( 7 ) - 

5.0 

AMASS(6,4,3) 

= 5.139 



AMASS(6,5,3) 

= -2. 

ARRAY B: 


AMASS(6,6,3) 

= 5.139 



AMASS(6,7,3) 

= -2. 

B (1) - 

0.0 

AMASS(6, 8, 3) 

= 5.139 

B(2) = 

0.0 

AMASS(6,9,3) 

- 6.9 

B ( 3 ) = 

0.0 

AMASS(6,10,3; 

) = 10. 

B ( 4 ) = 

0.0 



B ( 5 ) - 

0.0 


BLOCK DATA SUBPROGRAM 

Data may be entered into labeled or numbered common (but not blank common) prior to program execution 
by the use of the BLOCK DATA subprogram. This subprogram should contain only IMPLICIT, type, LEVEL, | 
DIMENSION, COMMON, EQUIVALENCE, DATA, and END statements. Any executable statements will be 
ignored, and a warning printed. 

A BLOCK DATA subprogram has one of the following formats: 

BLOCK DATA name 


END 

BLOCK DATA 


END 

name is any legal FORTRAN name. It identifies the BLOCK DATA subprogram if more than one BLOCK 
DATA subprogram is compiled. If the user does not name the block, it is given the name BLKDATA. 
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DATA may be entered into more than one block of common in one subprogram. 

Example: 

BLOCK DATA ANAME 

COMMON/CAT/X,Y,Z/DEF/R,S,T 

COMPLEX X,Y 

DATA X,Y/2*((1.0,2.7))/.R/7.6543/ 

END 

Z is in block CAT, and S and T are in DEF; although no initial data values are defined for them. 
The DATA statement must follow the specification statements. 

BLOCK DATA 

COMMON/ABC/A(5),B,C/BILL/D,E,F 
COMPLEX D,E 
DOUBLE PRECISION F 

DATA (A(L) ,L=l,5)/2.3,3.4,3*7.1/,B/2034.756/ ,D,E,F/2*( (1.0,2.5) ) , 

S 7.86972415872D30/ 

END 
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PROGRAM UNITS 


1-7 


A program unit is either a main program or a subprogram, and consists of FORTRAN statements and optional 
comments terminated with an END line. A program unit containing no FORTRAN statements other than com¬ 
ments and followed by an END line is considered to be a null program; it is diagnosed and ignored. 


MAIN PROGRAM AND SUBPROGRAMS 

A FORTRAN program may be written with or without subprograms. One main program is required in any 
executable FORTRAN program; any number of subprograms may be included. 


MAIN PROGRAM 

A main program should begin with the PROGRAM statement. If this statement is omitted from the main 
program, the program is assumed to have the name START., and files INPUT and OUTPUT are assumed. 


PROGRAM STATEMENT 

FORTRAN I/O statements use buffer areas established by the file name specified on the PROGRAM state¬ 
ment in the main program. The FORTRAN programmer must specify in the PROGRAM statement a file 
name for every logical I/O device that could be used in executing the entire program. 

FORTRAN I/O routines add the characters TAPE as a prefix to each logical unit number referenced in the user’s 
program to form the file name. For example, logical unit 3 refers to the file name TAPE3, and the programmer 
must list the file name TAPE3 in the PROGRAM statement if he references logical unit 3 in his program. 

If the program uses READ, PRINT, or PUNCH statements, the corresponding file names INPUT, OUTPUT, or 
PUNCH must appear in the PROGRAM statement. (The PROGRAM statement could be omitted if READ and 
PRINT are the only I/O statements used in the program.) 

The file name must appear in the PROGRAM statement of the main program even if the read or write 
statement is in a subprogram. 


PROGRAM name (filefile) 


name 


Must be a unique symbolic name within the main program and cannot 
be used as a subprogram name. It will be the entry point name and the 
object deck name for the loader. 
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(file,....file) Names of all input/output files required by the main program and its subprograms: 

maximum number of file names is 50. All internal file names used in input/output 
statements should be declared. If the program is to be loaded as an overlay (but not 
as the main overlay) this parenthetical list must be omitted. 

file 1-6 character file name 

filc=n |n is a decimal number specifying the buffer length in words. It must appear with the 

file=n/r first reference to the file in the PROGRAM statement. If n is not specified, the file is 

rile=/r assigned a buffer length of 2002g words. A buffer length of zero can be specified for 

a file referenced by a BUFFER statement (since buffered records are transmitted 
directly into and out of core); field length of the program is reduced by at least 2000g 
fa words for each file declared with zero buffer length in the PROGRAM statement. If 

file=n is specified in a 7600 program, the n is ignored. 

r defines the maximum length in characters for formatted and list directed records. If r 
is not specified, a default value of 150 is used, r should be specified for files referenced 
in formatted input/output statements transferring data in ASCII code through a terminal, 
and for files referenced in list directed input/output statements. 

file a = filet, Files wil1 be made equivalent- File b must have appeared previously in the same pro¬ 
gram statement. 

All references to file a refer to file b. Since file b and file a refer to the same file, any 
buffer length and record size specified applies to both file names. 

Example: 

PROGRAM ORB (I NPUT,OUTPUT=1000,TAPE 1 = INPUT,TAPE2=OUTPUT,TAPE4= 1000/2000) 

All input/output statements which reference TAPE1 will instead reference INPUT, and all listable output 
normally recorded on TAPE2 would be transmitted to the file named OUTPUT. 

Only one level of parentheses is allowed in the PROGRAM statement. The PROGRAM statement is scanned 
from left to right. 

At compile time, the file names should satisfy the following conditions (file names can be changed at execution 
time by control cards). If these conditions are not met, a warning diagnostic is printed: 

1. File name INPUT should be declared if any READ fn, iolist statement is included in the program. 

2. File name OUTPUT should be declared if any PRINT statement is included. If execution error 

messages are to be listed. OUTPUT must be included. 

3. File name PUNCH should be declared if any PUNCH statement is included in the program. 

4. File name TAPEu (u is an integer constant 1-99) should be declared if any input/output statement 

involving unit u appears in the program. At execution time, if u is a variable, there must be a file 
name TAPEu for each value u may assume. 


+ n applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
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The characters TAPE are added as a prefix to each logical unit number in the user’s program. Logical unit 3 
is assigned the file name TAPE3, logical unit 4 is assigned the file name TAPE4. Note, TAPE5 and TAPE05 
do not specify the same file name. Furthermore, if TAPE05 is used, it can be accessed with FORTRAN I/O 
statements only by using the display code file name in L format; see Input/Output section 1-9. 

A logical unit number is assigned by writing TAPEu = filenam, where filenam is the name of the file with 
which the logical unit number is to be associated. 

Examples: 

PROGRAM X (INPUT,TAFE5-INPUT) 

PROGRAM Y (OUTPUT,TAPE2-0UTPUT) 

PROGRAM OUT(OUTPUT,TAPE6-0UTPUT) 


write( 6 ,200)A,B,c Logical unit 6 must be declared as TAPE6 

200 FORMAT ( 1H1 ,3F7.3) in the PROGRAM statement. 

PROGRAM IN(INPUT,TAFE5-INPUT) 


READ (5,100) A, B, C This statement reads from logical unit 5, 

loo FORMAT ( 3F7.3 ) it is declared in the PROGRAM statement* 

as TAPE5. 

When a file name is made equivalent to another file, the file name appearing to the right of an equals sign 
must have been previously declared in the same statement. 

Example: 

In the following statement, INPUT and OUTPUT are defined before they appear to the right of the 
equals sign. TAPES becomes an alternate name for the file INPUT, and TAPE6 becomes an 
alternate name for OUTPUT. 

PROGRAM SAMPLE (INPUT.OUTPUT,TAFE5-INPUT,TAPE6-0UTPUT) 

Example: 

PROGRAM JIM(INPUT,TAPE19-INPUT) 

TAPE19 = INPUT must be preceded in the same statement by INPUT (or INPUT = buffer length) 
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If any of the following statements are used in a program or its subprograms, the logical unit number, u, 
must appear as file name TAPEu in the program statement: 


WRITE (u) iolist 
WRITE (u.fn) iolist 
READ (u) iolist 
READ (u.fn) iolist 

If u is a variable, there must be a file name TAPEu 
Example: 


ENDFILE u 
BACKSPACE u 
REWIND u 

BUFFER IN (u.p) (a.b) 

BUFFER OUT (u.p) (a.b) 

r each value u can assume in the source program. 


PROGRAM KAY(INPUT,OUTPUT,TAPE60=INPUT,TAPE61“OUTPUT) 


READ(60,100)ALIST 
100 FORMAT (F7.3) 


WRITE (61,200)ALIST 
200 FORMAT (1H0.F7.3) 

Example: 


PROGRAM JIM(TAPE1,TAPE2,TAPE3.TAPE5) 


N = 2 


READ(N) 


N-2+1 

READ(N) 

SUBPROGRAMS 

A subprogram is headed b\ a BLOCK DATA. FUNCTION, or SL BROUTINE statement. A subprogram 
headed hv a BLOCK DATA statement is a specification subprogram as described in Section 6. A 
subprogram headed bv a FUNCTION or SUBROUTINE statement is called a procedure subprogram. 
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Procedure subprograms are of two types: subroutine and function. Function subprograms return a single 
value to the expression containing the function’s name. The four kinds of functions are: 

Statement functions 
FUNCTION subprograms 

Intrinsic functions (in-line functions) I ... 

... r > system supplied 

library functions j J rr 

Subroutine subprograms may return a number of values (or none at all); they are referenced by a CALL 
statement. The two kinds of subroutines are: 

User subroutine 

Library subroutine 

Subprograms are defined separately from the calling program and may be compiled independently of the 
main program. They are complete program units conforming to all the rules of FORTRAN programs. The 
term program unit refers to either a main program or a subprogram. 

A subprogram may call other subprograms as long as it does not directly or indirectly call itself. For 
example, if program A calls program B, B may not call A. A calling program is a program unit which calls 
a subprogram. 

Subprogram definition statements declare certain names to be dummies representing the arguments of the 
subprogram-these are called dummy arguments. They are used as ordinary names within the defining 
subprogram and indicate the number, type and order of the arguments and how they are used. The dummy 
arguments are replaced by the actual arguments when the subprogram is executed. Dummy arguments may 
not appear in COMMON, EQUIVALENCE, or DATA statements. 

Actual parameters appear in subroutine calls 

CALL SUB3 (7.,CAT, 8.932) 

or function references 

A - B + ROOT (6.5,7..BOX) 


user defined 
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FUNCTION SUBPROGRAM 


DEFINING A FUNCTION SUBPROGRAM 




FUNCTION name (p,.p ) 

1 n 

7 


type FUNCTION name (p 1 ..... p n ) 


... Dummy arguments which should agree in order, number, and type with the 

actual arguments in the calling program. At least one argument is required: a 
maximum of 63 is allowed. 

type The type may be REAL, INTEGER, DOUBLE PRECISION, COMPLEX or 

LOGICAL. (The word PRECISION is optional,) When type is omitted, and no 
IMPLICIT statement appears in that program uoit, the type of the function result is 
determined by the first character of the function name. 

name FUNCTION name. It must not appear in any non- executable statement other 

than the FUNCTION statement in the subprogram. 

Dummy arguments may be the names of arrays, variables, and subprograms. Since all names are local to 
the subprogram containing them, dummy arguments may be the same as names appearing outside the 
subprogram. A dummy argument must not appear in COMMON, EQUIVALENCE or DATA statements 
within the function subprogram. 

The programmer can define a sequence of statements as a function. A function subprogram begins with a 
| FUNCTION statement and returns control to the calling program when a RETURN statement in the function sub¬ 
program is encountered. Execution of the FUNCTION subprogram results in a single value which is returned to the 
main program through the function name. 

The name of the function must be assigned a value within the function subprogram; if it is not assigned a 
value, a warning diagnostic is printed. This value is the value of the function. 

| If an END line is encountered in the FUNCTION subprogram, a RETURN i* assumed. 

A function must not, directly or indirectly reference itself. 


FUNCTION SUBPROGRAM REFERENCE 

A function is referenced when the name of a function appears in an arithmetic, logical Of masking 
expression. A function reference transfers control to the function subprogram, and the values of the actual 
arguments are substituted for the dummy arguments. 
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Actual arguments may be arithmetic or logical expressions, constants, variables, array names, array element 
names, SUBROUTINE subprogram names, an external function name (not an intrinsic function or 
statement function), or function reference (the function reference is a special case of an arithmetic 
expression), or a Hollerith constant, or an ECS variable, array or array element name, or an LCM variable, 
array name or array element name. 

Example: 


FUNCTION GRATER(A, B ) 

IF (A.GT.B)1,2 

W(I,J)=FA+FB-GRATER(C-D,3 *AX/BX) 1 GRATER=A-B 

RETURN 

. 2 GRATER=A+B 

RETURN 

END 

When a RETURN statement in the function subprogram is executed, and control is returned to the 
statement containing the function reference, if A is greater than B the value of A-B, in this case, 
C-D-3*AX/BX is returned to the main program and used in the evaluation of the expression. If A is 
less than B. the value of A + B (C-D + 3*AX/BX) is returned to the main program. 

A function reference may appear anywhere in an expression that an operand may be used. 

The name of a function must not appear in a DIMENSION declaration. Dummy arguments representing 
array names must appear within the subprogram in a DIMENSION or type statement giving dimension 
information. If dummy arguments are not dimensioned, they cannot be referenced as an array in the 
subprogram. 

If the subscripts of an array in the subprogram are to agree with the subscripts in the calling program, the 
dimensions in the subprogram must be the same as those in the calling routine. If array dimensions 
between subprogram and calling program differ, the user must be aware of the arrangement of arrays in 
storage (Common, section 6 and Arrays, section 2). 

Example: 


DIMENSION ARY (5,5) 


RES = DIAG(ARY,5)* *2 


FUNCTION DIAG (A,N) 
DIMENSION A(5,5) 
DIAG=A(1,1) 

DO 70 1 = 1,N 
70 DIAG=DIAG*A(1,1) 
RETURN 
END 


The function subprogram may contain any statements except PROGRAM. BLOCK DATA. SUBROU¬ 
TINE, another FUNCTION statement, or any statement that directly or indirectly references the function 
being defined. 
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In addition to returning the value of the function to the calling program, a FUNCTION subprogram can yield 
results also through the assignment of values to one or more of its dummy arguments. 

Adjustable dimensions are permitted in FUNCTION subprograms. 

If an actual argument in the calling program unit is the name of an external function or subroutine, the cor¬ 
responding dummy argument must be used within the FUNCTION subprogram as the name of an external 
function or subroutine, respectively. 


CONFLICTS WITH LIBRARY FUNCTIONS 

A FUNCTION subprogram can have the same name as that of an intrinsic or basic external function contained 
in the FORTRAN library. The user’s routine, however, overrides the library’s routine only if option T, D, or 
OPT=0 is specified on the FTN control card, or if in the calling program unit the name of the function appears 
either in an EXTERNAL statement or in an explicit type statement which changes the type associated with 
the library function. 

Names and types of the library functions are listed in section 1-8, tables 8-1 and 8-2. 
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STATEMENT FUNCTION 


DEFINING A STATEMENT FUNCTION 

7_ 

name (p 1 ,P 2 ,P 3 ,..., p ) = expression 


name Type of the function is determined by the type of the function name, unless it 

appears in a type statement. 

p, ,...,p n Dummy arguments must be simple variable names. At least one argument is 

required; a maximum of 63 is allowed. These arguments should agree in order, 
number, and type with the actual arguments used in the function reference. 

expression Any arithmetic, masking, relational, or logical expression may be used. It may 

contain references to library functions, statement functions, or function 
subprograms. Names in the expression which do not represent arguments have 
the same value as they have outside the function (they are normal variables). 

The definition of a statement function is contained in a single statement, and it applies only to the program 
or subprogram containing the definition. It consists of one statement and produces only one result. 

Statement function names must not appear in DIMENSION. EQUIVALENCE, COMMON or EXTER¬ 
NAL statements; they can appear in a type declaration but cannot be dimensioned. Statement function 
names must not appear as actual or dummy arguments. If the function name is type logical, the expression 
must be logical. For other types, if the function name and expression differ, conversion is performed as part 
of the function. 

A statement function must precede the first executable statement and it must follow all specification 
statements (DIMENSION, type. etc.). A statement function must not reference itself. For example. 
R(I) = R(I) *R(I-1) is illegal unless R is an array name. 
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Examples: 


LOGICAL C,P,EQV 

EQV(C,P) = (C.AND.P)•OR.(.NOT.C.AND..NOT.P) 

COMPLEX Z,F(10,10) 

Z(A,I) = (3.2.0.9)*EXP(A)*SIN(A)+(2.0,1.)* EXP(Y)* COS(B)+F(I,J) 

GROS(R,HRS,OTHERS) = R*HRS + R* .5*0THERS 

STATEMENT FUNCTION REFERENCE 

The statement function only defines the function; it does not result in any computation. 

The value of the function is computed using the values of the actual arguments. The actual arguments are 
substituted when a statement function reference is made; they may be any arithmetic expressions. 
Statement function names should not appear in an EXTERNAL statement. 

For example, to compute one root of the quadratic equation ax 2 + bx + c = 0, given values of a, b and c, an 
arithmetic statement function can be defined as follows: 

ROOT (A,B,C) = (-B + SQRT(B * B-4.* A * C ))/(2.0*A) 

When the function is used in an expression, actual arguments are substituted for the dummy arguments 
A.B.C. 

RESA = ROOT (6.5,7.,1.) 
is equivalent to writing 

RESA = (-7.+SQRT(7.*7.-4.0*6.5*1.0))/(2.0*6.5) 


or 


TAB = 3.7 * ROOT (CAT, 8.2, TEMP) + BILL 

Wherever the statement function ROOT (A.B.C) is referenced, the definition of that function—in this case 
(-B + SQRT(B*B-4.*A*C))/(2.*A)—is evaluated using the current values of the arguments A.B.C. 
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Examples: 


Statement Function Definitions 

Statement Function References 

ADD(X, Y, C , D )-X+Y+C+D 

RES 1= GROSS-ADD(TAX,FICA,INS,RES3) 

AVERGE(0,P,Q,R)=(0+P+Q+R)/4 

GRADE-AVERGE(TEST1,TEST2,TEST3, 

TEST4)+MID 

LOGICAL A.B.EQV 

EQV(A, B ) = (A.AND.B).OR. 

(.NOT.A.AND..NOT.B) 

TEST=EQV(MAX,MIN).AND.ZED 

COMPLEX Z 

Z(X,Y)**(1. ,0. ) ’"EXP {X) * COS {Y) 
+(0..1.)*EXF(X)*SIN(Y) 

RESULT-(Z(BETZ,GAMMA(I+K))* *2-1. ) 
/SQRT(TWOPIE) 


Here, the statement function is used to substitute a library function name in a program containing 
an alternate name for this library function. 

SINF(X)“SIN(X ) statement function definition 


A-SINF(3.0+B) + 7. 

The above sequence generates exactly the same object code as: 

A-SIN(3.0+B)+7. 

During compilation, the statement function definition is retained by the compiler. Whenever the function is 
referenced, instructions are generated in line to evaluate the function (as opposed to FUNCTION 
subprograms for which a branch instruction is generated at each reference). The expansion of a statement 
function is similar to the expansion of an assembly language macro. Thus the statement function does not 
reduce execution speed or efficiency. 
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SUBROUTINE SUBPROGRAMS 


DEFINING A SUBROUTINE SUBPROGRAM 




SUBROUTINE name 


-V 


name Symbolic name of the SUBROUTINE 

p,p„ Dummy arguments which must agree in order, number and type with the 

actual arguments passed to the subprogram at run time. A maximum of 63 is 
allowed. The argument list is optional. Dummy arguments can be the names of 
arrays, simple variables, library functions, or subprograms. Since dummy 
arguments are local to the subprogram containing them, they may be the same 
as names appearing outside the subprogram. A dummy argument must not 
appear in a COMMON, EQUIVALENCE, or DATA statement within the 
subroutine. 



In uriti 


A SUBROUTINE subprogram can be referred to only by a CALL statement. It starts with a SUBROU¬ 
TINE statement and returns control to the calling program through one or more RETURN statements. The 
subprogram name is not used to return results to the calling program and does not determine the type of 
the subprogram. Values are passed by one or more arguments or through common (refer to SUBPRO¬ 
GRAMS and COMMON). 

Dummy arguments which represent array names must be dimensioned within the subprogram by a 
DIMENSION or type statement. If an array name without subscripts is used as an actual argument in a 
CALL statement and the corresponding dummy argument has not been declared an array in the 
subprogram, the first element of the array is used in the subprogram. Adjustable dimensions are permitted 
in SUBROUTINE subprograms. 
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SURROUTIKE subprograms do not re^u|r«jt fUgTliRI' 
WP& tine. 'Whefi'ttte'8^®* line Is encountered, j f* *** 




SUBROUTINE subprograms may contain any statements except PROGRAM, BLOCK DATA FUNC¬ 
TION, or another SUBROUTINE statement. 



SUBROUTINE FBI 
XRETURNS (M,N) 


CAU, fGMl( 


** 3 *. .• ■ . . ., ■ ^v £ .4». ■ $ 

■ fclp.statement'5. 

^statement U}* caBing 

^ statement following^ 


irOgram 

program 


su broutipe subptogranj,, If the 
the form RETURN i may not 

*N statement, may tie made to 


NS list is omitted from the «&rWi» 
The converse is permitted however, a norm: 


The SUBROUTINE name must not appear in any other statement in the same subprogram. 

Example: ■ r'T." ' ', r • < ■ . \ 

Cai^i” ■' . -jmmwjJuui. J.. . lx., .«•... . - . 

' & }' -V - 

?&?■ : 
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REFERENCING A SUBROUTINE SUBPROGRAM 
CALL STATEMENT 

The CALL statement causes a SUBROUTINE subprogram to be executed. 



name Name of subroutine called must not appear in any specification statement in the calling 
program except an EXTERNAL statement. 

p,,...,p n Actual arguments which must correspond in order, number, and type with those 
specified in the SUBROUTINE statement. 

b.b m Numbers of statements in the calling program or subprogram to whs* «&*rt>l returns. 

They correspond in order and number w$tjh pu dtunmy statement in the 

subroutine. If alternate «tlu ane taken Atom *Kesubroutine. b, 

Otherwise, this specification can be omitted, *rpd control returns to tlrfc statement 




immediately folkwii$ A* 

The total number of arguments, p,.p n + b,.b m , must not exceed 63. 




Actual arguments may be: arithmetic or logical expressions, constants, variables, array elements, array 
names, library function names, subroutine subprogram names, external function names (not an intrinsic or 
statement function), function references (the function reference is a special case of an arithmetic 
expression), or LEVEL 3 array names or varjstfelds. 
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GO TO 10 
104 CONTINUE 
END 


• SUBROUTINE XCOMP (B1,B2 ,G),RETURNS(A1, A2,A3 
IF(Bl*B2-4.159)10,20,30 ^ , 

10 commit 


RETURN A1 
20 CONTINUE 


RETURN A2 
30 CONTINUE 


IF (B1)40,50 
40 RETURN A3 
50 RETURN A4 
END 
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PROGRAM VAROIM (OUTPUT*TAPE6*0UTPUT> 

COMMON X(4*3) 

REAL Y<6> 

CALL IOTA(X * 12) 

CALL IOTA(Y*6) 

WRITE (6*100) X *Y 

100 FORMAT (*1ARRAY X = **12F6.0*5X**ARRAY Y * *6F6.0) 

STOP 

END 

SUBROUTINE IOTA (A,M> 

IOTA STORES CONSECUTIVE INTEGERS IN EVERY ELEMENT OF THE ARRAY A 
STARTING AT 1 
DIMENSION A(M) 

DO 1 I = 1*M 
1 A (I) = I 
RETURN 
END 

If a CALL is the last statement in a DO loop, looping continues until the DO loop is satisfied. 

Example: 

Calling Program Subprogram 

DO 5 I - 1,20 SUBROUTINE GRATER (A.B) 

IF (A.GT.B) 1,2 

1 B - A - B 

5 CALL GRATER (STACK(I),TEMP(I)) RETURN 

2 B - A + B 
RETURN 
END 

The subroutine subprogram GRATER will be called 20- times. 

Example: 

Catting Program Subprogram 

SUBROUTINE SORT(ALIST) 

INTEGER ALIST (50) 

DO 10 J - 1,50 
K - 50 - J 
DO 10 I - ljt 

IF (ALIST (I) - ADIST (I+1J) 15,10 
15 ITEMP - ALIST (I) 

ALIST (I) - ALIST (I + 1) 

ALIST (I + 1) - ITEMP 
10 CONTINUE 

50 WRITE (6,200) ALIST 
200 FORMAT (*1*,10(14,21)) 

RETURN 
END 

The parameter list in a SUBROUTINE subprogram is optional. 


DIMENSION LIST (50) 

CALL SORT (LIST) 
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Example: 


Calling Program Subprogram 


SUBROUTINE ERROR1 
WRITE (6,1) 

1 FORMAT (5X,‘NUMBER IS OUT OF RANGE*) 

IF (A-B) 10,20,20 RETURN 

END 


10 CALL ERROR1 

20 RESULT-(A*CAT) +375.2-ZERO 


SUBPROGRAMS AND COMMON 


Transferring values through common is a more efficient method of passing values than through arguments 
in the CALL statement. Variables or arrays in a calling program or a subprogram can share the same 
storage locations with variables or arrays in other subprograms. Therefore, a block of common storage can 
be used to transfer values between a calling program and a subprogram. 


Example: 

PROGRAM CMN (INPUT.OUTPUT> 

COMMON NED (10) 

READ 3*NED 
3 FORMAT (1013) 

CALL JAVG 

STOP 

END 

SUBROUTINE JAVG 

C THIS SUBROUTINE COMPUTES THE AVERAGE OF THE FIRST 10 ELEMENTS IN 
C COMMON 

COMMON N(10) 

ISTORE * 0 
DO 1 I = 1*10 
1 ISTORE = ISTORE ♦ N(I) 

ISTORE = ISTORE/IO 
PRINT 2*ISTORE 
2 FORMAT (*1AVERAGE a *,H0) 

RETURN 

END 

AVERAGE = 45 
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common.^NEDf/^sharetmhe^same I«atiM «[ih N(0 NEDri'fS?" ‘ he IOCa ' iom in 

!rrif„?:rvT u t ned,,o) are a ™ iab " - 

passed! an^argumenUi^t^section Sy t0 ^ S3mC Wi,h regard to ty P e ’ J ength, etc., as those 


ADJUSTABLE DIMENSIONS IN SUBPROGRAMS 


provided the array name and all integer names used for d ^ ™ instead ° f constants - 
arguments of the subprogram. The actual array nam^H i 7 d ' memion specifications are dummy 
calling program when the subprogram is called The 5” d V ® ““ f °" the dummy variables are given by the 
adjustable and may change ea^h £?£2£o howe TT “ 3 « 

array must have been declared in a calling nrogrfm The ^ V ’ hC abS °' Ute dime nsions of the 

adjustable dimensions should not ,o a , * rn * m 


Adjustable d.mensions cannot be used for arrays which are in common. 


Calling Program 


DIMENSION A(10,10),B(10,10),C{10.10), 

S ®(5,5),F(5,5),G(5,5),H(10,10) 


SUBROUTINE Subprogram 


CALL MATADD (E,F,G,5,5) 


SUBROUTINE MATADD(X, Y, Z, M, N) 
DIMENSION X(M,N),Y(M,N),Z(M,N) 
DO 10 I - 1,M 
DO 10 J = 1,N 

10 Z (I,J) - X (I.J) + Y(I j) 

RETURN 

END 


CALL MATADD(A,B,0,10,7) 

call HATADDIB.C.A.I.IO, WheruWs caUI is made to the subprogram, the actual arguments 

subprogram “ “ f ” MATADD(X,Y.Z,M.N), and the 

X<IO,7)Y(IO,7),Z<IO, a r 8 d ' me " S,0nS: D,MENSI0N 

The main program may cal, the subroutine MATADD from several places within the mam program. 

The adjustable dtmenstons may be passed through more than one level of subprograms. 
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Example: 


Calling Program Subprogram 

. SUBROUTINE SUBS (B,I,J) 

. DIMENSION B(I,J) 

• • 

REAL A(10,5) 

CALL SUB3 (A,6,3) 

. DO 20 X • 1, J 

• • 

. CALL SUB4 (B,I,J) 


Subprogram 

SUBROUTINE SUB4 (Z.X.L) 
DIMENSION Z (K.L) 


In the main program, array A has dimensions (10,5); a portion of this array is passed to the 
subroutine SUB3 through the call CALL SUB3(A,5,3). Thus array B in the subroutine has 
dimensions (5,3). The subroutine SUB3, in turn, calls another subroutine SUB4 passing the 
dimensions of the array B. The array X in the subroutine SUB4 has dimensions X (5,3). 

Constants must be used when array A is dimensioned in the initial calling program, and the values 
of second and third arguments in the subprogram call should be consistent with the dimensions of 
A. If adjustable dimensions are not consistent with constant dimensions in the calling program, 
results are undefined. 

In a subprogram, an array name which appears in a COMMON statement must not have adjustable 
dimensions. 

Example: 

PROGRAM VAROIM <OUTPUT,TAPE6*0UTRUT) 

COMMON X (4,3) 

REAL > (6) 

CALL I0TA(X,12> 

CALL I0TA(Y,6) 

WRITE (6,100) X,Y 

100 FORMAT (MARRAY X * * ,12F6.0,5X,*ARRAY Y * *6F6.0> 

STOP 
EN0 

SUBROUTINE IOTA (A,M) 

IOTA STORES CONSECUTIVE INTEGERS IN EVERY ELEMENT OF THE ARRAY A 
STARTING AT 1 
DIMENSION ACM) 

00 1 I * 1, M 
1 A(I)*I 
RETURN 
EN0 
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Example: 


Main Program 


Function Subprogram 


Z=A+B-J0E(3.*P,Q-1) 


R=S+JAM(Q,2.5 *P) 


FUNCTION JOE(X,Y) 
10 J0E=X+Y 
RETURN 
ENTRY JAM 
IF(X.GT.Y)10,20 
20 J0E=X-Y 
RETURN 
END 


In the calling program, an entry name may appear in an EXTERNAL statement, and FUNCTION entry 
names also may appear in type statements. All ENTRY points within a SUBROUTINE subprogram define 
SUBROUTINE subprogram names, and all ENTRY points within a FUNCTION subprogram define 
FUNCTION subprogram names. A function entry name must be the same type as the name in the 
FUNCTION statement. 


An ENTRY name must be unique in the FUNCTION subprogram. 
Example: 

FUNCTION CAT(A,B) 


D0G=10.+3.2 
ENTRY DOG 

The ENTRY name DOG is not valid because it has been used as a variable. 
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The value of the function is the last value assigned to the name of the function regardless of which 
ENTRY statement was used to enter the subprogram. The function name is used to return results to the 
calling program even though the reference was through an entry name. 

Example: 

Calling Program Subprogram 


RESULT = FSHUN(X,Y,Z) FUNCTION FSHUN(A,B , C ) 

RES2 = FRED(R,S,T) 3 FSHUN-A* B/C * * 2 

RETURN 
ENTRY FRED 

IF(A .LE. 702.) GO TO 3 

FSHUN={C+A)/B 

RETURN 

END 


When the FUNCTION FSHUN is entered at the beginning of the function, or through the ENTRY 
FRED, the result must be returned to the calling program through the function name FSHUN. 

Example: 


SJtsNUUTlNE SET (A*M*V) 

C Sr. I HUTS Trlt VALUE V INTO EVERY tLEMt.NI OF I hL akkay a 

UI MENS 1 ON AlR) 

0;) II = I * M 
1 a(1)=0.0 
t 

c-ar^y INC 

C lit Auus Thu VALUE V fu EVt*Y EL t MEN i IN lnt. ARkat a 

U ■ j d I — 1 ♦ M 
d A ( I ) = A ( I ) * V 

Kf I OWN 

t to 


An explanation of this example appears in part 2. 
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FORTRAN Extended provides certain subprograms that are of general utility or difficult to express in FORTRAN; 
they are referenced in the same way as user written subprograms. The library consists of three classes of sub¬ 
programs: intrinsic functions, basic external functions, and utility subprograms. 


INTRINSIC FUNCTIONS 

If, in a calling program unit, the name of an intrinsic function appears either in an EXTERNAL statement or 
in an explicit type statement which changes the type associated with the function, the user should supply a 
FUNCTION subprogram with the name of that function; otherwise, results are unpredictable. 

When a variable, array, or statement function is defined with the same name as that of an intrinsic function, 
the user definition overrides the system definition. 

When a FUNCTION subprogram is defined with the same name as that of an intrinsic function, the user defi¬ 
nition overrides the system definition only if option T, D, or OPT=0 is specified on the FTN control card, or 
if in the calling program unit the name of the function appears either in an EXTERNAL statement or in an 
explicit type statement which changes the type assoicated with the intrinsic function. 

Table 8-1 lists the intrinsic functions provided by FORTRAN Extended. 

The results of functions listed with type “no mode” assume the type of the expression in which they are used. 
The sign of the second argument in the functions SIGN, ISIGN, AND DSIGN is defined to be positive when 
the value of that argument is +0 and negative when the value is -0. 

The functions AMOD and MOD are not defined when the second argument is zero. The functions SHIFT and 
MASK are not defined when their arguments exceed the bounds specified. 
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Table 8-1. Intrinsic Functions 
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t MOD or AMOD (a,b) is defined as a-[a/b]b, where [X] is the largest integer that does not exceed the magnitude of X with sign the same as X. 
| ft The arguments of MOD must each be less than or equal to 2^-1. 



Table 8-1. Intrinsic Functions (Continued) 
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Table 8-1. Intrinsic Functions (Continued) 



of a variable, the name of a 

array element, variable, array 

or entry point element, or 

of external external sub¬ 
subprogram program 











































BASIC EXTERNAL FUNCTIONS 


A basic external function ordinarily is called by value; however, it is called by name if, in the calling program 
unit, the name of the function appears either in an EXTERNAL statement or in an explicit type statement 
which overrides the type associated with the function, or if option T, D, or OPT=0 is specified on the FTN 
control card. 

When a variable, array, or statement function is defined with the same name as that of a basic external func¬ 
tion, the user definition overrides the system definition. 

When a FUNCTION subprogram is defined with the same name as that of a basic external function, the user 
definition overrides the library definition only if,in the calling program unit, the name of the function appears 
either in an EXTERNAL statement or in an explicit type statement which overrides the type associated with 
the library function, or if option T, D, or OPT=0 is specified on the FTN control card. 

Table 8-2 lists the basic external functions. 

Arguments for which a result is not mathematically defined, or those of a type other than that specified, 
should not be used. Arguments of the trigonometric functions are in radians; and the inverse trigonometric 
functions return principal values. The function DMOD is not defined when the second argument is zero. 
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Table 8-1. Basic External Functions 




Hyperbolic tanh(A) 1 TANH Real Real B=TANH(A) 

Tangent !Al<741.67 

fCLOG returns values with imaginary parts in the range (-7r,7r]. For x<0, therefore, CLOG(x+iO) returns an imaginary part with a value =+ 7 r; 
CLOG(x+iO + ) returns an imaginary part with a value ^+7r; and CLOG (x-iO + ) returns an imaginary part with a value 
















































Table 8-2. Basic External Functions (Continued) 
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ADDITIONAL UTILITY SUBPROGRAMS 

The following utility subroutines are supplied by the system. ANSI does not specify any library subroutines. 

A user supplied subprogram with the same name as a library subprogram overrides the library subprogram, 
but still retains the type of the library subprogram. 

The subprograms which follow are always called by name (refer to section 7). 

In the following definitions, i is an integer variable or constant; j is an integer variable. 


SUBROUTINES 

CALL DUMP (a,,b, ,f, a n ,b n ,f n ) 

CALL PDUMP (a,,b,,f.,a n ,b n ,f n ) 

Dumps main memory on the OUTPUT file in the indicated format. If PDUMP was called, it returns control 
to the calling program; if DUMP was called, it terminates program execution, a; is the first word, and b, the | 
last word of the storage area to be dumped. 1 < n < 20. f is a format indicator, as follows: 

f = 0 or 3, octal dump 
f = 1, real dump 
f = 2, integer dump 

a and b are the first and last words dumped for f values 0-3. If 4 is added to any of the f values, their 
contents will be used as addresses of the first and last words dumped. An ASSIGN statement or the 
LOCF function can be used to get addresses for the a and b parameters. 

The maximum number of arguments is 63. 

Examples: call PDUMP(A(1>. A(100), i> 

CALL PDUMPIO, 1000B, 4) 

CALL SSWTCH (i,j) 

If sense switch i is on, j is set to 1; if sense switch i is off. j is set to 2. i is 1 to 6. If i is out of range, an 
informative diagnostic is printed, and j = 2. The computer operator uses this subroutine to select options in 
a FORTRAN program. 


Dumps from A(l) to A(100) as real numbers 
Dumps from location 0 to 1000B in octal 


CALL REMARK (H) 

Places a message of not more than 80 characters, 40 characters per line, in the dayfile. Messages exceeding 80 
characters will be truncated. Messages shorter than 80 characters must have all zeros in the lower 12 bits ot the 
last word; they are supplied automatically when a Hollerith constant is used as the parameter. H is a Hollerith 
specification. 

Example: CALL REMARK ( 9HLAST DECK) 
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CALL DISPLA (H,k) 

Displays a name and a value in the dayfile. H is a Hollerith specification of not more than 80 characters, k 
is a variable, or a real or integer expression; k is displayed as an integer or real value. 

Example: CALL DISPLA (7H TIME =, STOP-START) 

CALL RANGET(n) 

Obtains current generative value of RANF between 0 and 1. n is a symbolic name to receive the seed. It is 
not normalized. 

CALL RANSET(n) 

Initializes generative value of RANF. n is a bit pattern. Bit 2° will be set to 1 (forced odd), and bits (2 -2 ) 
will be set to 1717 octal. 

SECONDS) or CALL SECOND (t)f 

Returns central processor time from start of job in seconds, in floating point format, accurate to three 
decimal places, t is a real variable. 

Example: dftim - second (CP) 

DATE(a) or CALL DATE (a)t 

The value of a will be the current date in operating system format, a is a dummy argument. Format is 
bMM/DD/YYb; but it may vary at installation option. 

The value of a will be the current date in operating system format, a is a dummy argument. Format is 
bMM/DDYYb; but it may vary at installation option. The value returned is 6-bit character data and may be 
output using an A FORMAT element, see PROGRAM LIBS (page II-1 -16). 

The function DATE is real for mode conversion, thus if J and K are integer variables in: 

J = DATE(K) 

J will not be useful as the value returned will have been converted from floating to fixed. 


fThese routines can be used as functions or subroutines. The value is always returned via the argument and 
the normal function return. 
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TIME(a) or CALL TIME (a)f 

The value of a will be the current reading of the system clock. Format is bHH.MM.SSb, (where b is a blank). 

The value returned is 6-bit character data and may be output using an A FORMAT element, see PROGRAM 
LIBS (page II-1-16). 

The function TIME is real for mode conversion, thus if J and K are integer variables in: 

J = T1ME(K) 

J will not be useful, as the value returned will have been converted from floating to fixed. 

CALL ERRSET (a,b)tt 

Sets maximum number of errors, b, allowed in input data before fatal termination. Error count is kept in a. 


CALL LABEL (u,fwa)tt 

Sets tape label information for a file, u is the unit number, fwa is the address of the first word of the label 
information. The label information must be in the mode and format discussed in the operating system reference 
manual. 


CALL MOVLEV (a,b,n) 

Transfers n consecutive words of data between a and b. a and b are variables or array elements; n is an 
integer constant or expression, a is the starting address of the data to be moved and b is the starting address 
of the location to receive it. 

Example: call movlev (a. b, iooo) 

No conversion is done by MOVLEV. If data from a real variable is moved to an integer type receiving field, 
the data remains real. 

Example: call movlev (a. i, 1000 ) 

After the move, I does not contain the integer equivalent of A. 

Example: DOUBLE PRECISION D1 (500), D2(500! 

CALL MOVLEV (D1, D2, 1000) 

Since D1 is defined as double precision, n should be set to 1000 to move the entire 
D1 array. 


t These routines can be used as functions or subroutines. The value is always returned via the argument and 
the normal function return. 
tfRefer to section 5, part HI for further information. 
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CALL OPENMS (u,ix,lngth,t)t 


Opens mass storage file and informs Record Manager that this file is word addressable. If an existing file is 
called, the master index is read into the area specified by the program, u is the unit designator, ix is the first 
word address of the index in central memory. Ingth is the length of the index buffer; for a name index, 
Ingth > 2 * (number of records in file) + 1; for a number index, Ingth > number of records in file + 1. 
t = 1 file is referenced through a name index; t = 0 file is referenced through a number index. 

Example: PROGRAM MSI (TAPE3) 

DIMENSION INDEX (11), DATA (25) 

CALL OPENMS (3,INDEX,11,0) 


CALL READMS (u,fwa,n,k)t 

Transmits data from mass storage to central memory, fwa is the central memory address of the first word 
of the record, n is the number of central memory words transferred. Number index k = I < k < Ingth - 1. 
Name index k = any 60-bit quantity except ±0. u is the unit designator. 

Example: CALL READMS (3 ,DATA ,25,6) 

CALL WRITMS(u,fwa,n,k,r,s)t 

Transmits data from central memory to mass storage, u.fwa.n.k are the same as for READMS. r = + 1 
rewrites in place. Unconditional request; fatal error is printed if new record length exceeds old record 
length, r = -1 rewrites in place if space is available, otherwise writes at end of information, r = 0 no 
rewrite; writes normally at end of information. The r parameter can be omitted if the s parameter is 
omitted. The default value for r is 0 (normal write). 

s = i writes subindex marker flag in index control word for this record, s = 0 does not write subindex 
marker flag in index control word for this record. The s parameter can be omitted; its default value is 0. 

The s parameter is included for future random file editing routines. Current routines do not test the flag, 
but the user should include this parameter in new programs, when appropriate, to facilitate transition to a 
future edit capability. 

Example: CALL WRITMS ( 3 , DATA, 25 , NRKEX) 

CALL STINDX (u,»x,lngth,t)t 

Changes index in central memory from master to subindex. u,ix,Ingth,t are the same as OPENMS. 

Example: CALL STINDX (2.SUBIX.10) 


t Refer to section 7, part III for further information. 


1 - 8-12 


60305600 D 


CALL CLOSMS (u) ff 

Writes index from central memory to file and closes file. 

Example: CALL CLOSMS (7) 

CALL LENGTHXfu, nw,ubc)f 

Gives information regarding the previous BUFFER IN or READMS call of the file designated by u. nw is set 
to the number of 60-bit words read, ubc is set to the number of unused bits in the last word of the transfer 
Values returned are type integer. 

Example: call lengthx(5,nwrds,nbits} 

CALL STRACE 

Provides subroutine calling traceback information from the subroutine which calls STRACE back to the 
main program. Traceback information is written to the file DEBUG. To obtain traceback information 
interspersed with the source program, DEBUG should be equivalenced to OUTPUT in the PROGRAM 
statement. (Refer to section 1-13 STRACE). 

FUNCTIONS 

UNIT (u) 

Returns buffer status on unit u. Result is type real. -1 Unit ready, no error. +0 Unit ready, EOF 
encountered. + 1 Unit ready, parity error encountered. 

Example: IF (UNIT(2) )30,40,70 

EOF(u)f 

Gives input/output status on non-buffer unit. If zero, no end-of-file was encountered on previous read. 
Result is type real. 

Example: IFL - EOF (4) 


(Refer to section 5, part III for further information, 
ft Refer to section 7, part III for further information. 
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LENGTH(u)f 


Gives number of central memory words read on the previous buffer or mass storage input/output request 
for a designated file. Result is type integer. 

Example: CMW = LENGTH (5) 

IOCHEC(u)f 

Gives parity status on non-buffer unit. If zero, no parity error occurred on previous read. 

Result is type integer. 

LEGVAR(a) 

Checks variable a. Result is - I if variable is indefinite, + I if out of range, and 0 if normal. Variable a is 
type real; result is type integer. 

The following subroutines are included for compatibility with previous processors only and should be 
avoided by new programs. 

CALL FTNBIN (i,m,IRAY) 

Null routine. All parameters ignored. Exists only for compatibility reasons. 

CALL SLITE(i) 

Turns on sense light i. If i = 0, turn all sense lights off. If i is other than (0-6), an informative diagnostic 
is printed; and sense lights are not changed. 

CALL SLITET(i,j) 

Tests sense light. If sense light i is on, j = I, if sense light i is off. j = 2. Always turns sense light i off. If 
i is other than 1-6, an informative diagnostic is printed; ail sense lights remain unchanged; and j = 2. 

(Note: Logical variables generally provide a more efficient method of testing a condition than do calls to 
SLITE or SLITET). 

CALL EXIT 

Terminates program execution and returns control to the operating system. 


fRefer to section 5, part III for further information. 
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CALL WRITEC (a,b,n) 


Transfers data from central memory to extended core storage or LCM. 


CALL READEC (a f b ( n) 

Transfers data from extended core storage to central memory. 

A is a simple variable or array element located in central memory, b is a simple variable or array element 
located in an extended core storage block or LCM block, n is an integer constant or expression, n consecutive 
words of data are transferred beginning with a in central memory and b in extended core storage. 

No type conversion is done. 

LEVEL 3,A 

CALL READECtl.A.IO) 

CALL WRITEC(I.A,10) 
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INPUT/OUTPUT 


1-9 


To input or output data, the following information is required: * 

Unit number of the input/output device 

List of FORTRAN variables to receive input data or from which results are to be output. 

Layout or format of data 

READ, WRITE, PRINT, or PUNCH statements specify the input or output device and the list. The form of 
data is designated by the FORMAT statement. 

Data can be formatted or unformatted or list directed. In formatted mode, display code character strings are 
converted and transferred according to a FORMAT statement. In unformatted mode, data is transferred in the 
form in which it normally appears in storage, no conversion takes place, and no FORMAT statement is used. 

In list directed mode, display code character strings are converted and transferred according to the type of the 
list items. 

Input/output control statements are discussed below. Input/output lists and the FORMAT statements are 
covered in section 10. 

The following definitions apply to all input/output statements: 

u Input/output unit; the operating system associates this unit with an internal file name 

which may be: 

Integer constant of one or two digits (leading zeros are discarded). The compiler 
associates these numbers with file names of the type TAPEu, where u is the file 
designator (refer to PROGRAM statement, section 7). 

Simple integer variable name with a value of: 

1 - 99, or 

A display code file name (L format, left justified with binary zero fill). This is the 
internal logical file name. 

fn Format designator; a FORMAT statement number or the name of an array containing 

the format specification. The statement number must identify a FORMAT statement in 
the program unit containing the input/output statement. 

iolist Input/output list specifying items to be transmitted (section I-10). 
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All information is considered to be a file or part of a file. Local to a given job, a file is identified bv a logical 
file name (the internal file named, u). All control card references to a file identify it by the logical file name. 
The internal central memory representation of a logical file name consists of its literal value in display code, left 

justified and zero filled. 

Several file names are given special significance. When one of these names is used, the following automatic dis¬ 
position is made, unless the user has defined an alternate disposition: 

Card input is assigned to the file INPUT. 

Data in the file OUTPUT is assigned to the printer. 

Data in the file PUNCH is assigned to the card punch as coded card output. 

Data in the file PUNCHB is output on the card punch as binary card output. 

FORTRAN RECORD LENGTH 

For cards, formatted logical record length cannot exceed 80-characters and for the file OUTPUT, 137 char¬ 
acters. Other files are limited to 150 characters unless the maximum record length is specified on the 
PROGRAM STATEMENT (see section 1-7). 

The length of an unformatted FORTRAN logical record is determined by the length of the input/output 
list, and can be any size. 


CARRIAGE CONTROL 

Output files assigned to the printer, a maximum of 137 characters can be specified for a line, but only 136 
characters are printed. The first character of a line is the carriage control; it is never printed. The second char¬ 
acter in the line appears in the first print position. The printer control characters are listed in section 10. For 
off-line printing, printer control is determined by the installation printer routine. 

If more than 137 characters are specified for a line, a fatal execution time error results and an error 
message is printed. 
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OUTPUT STATEMENTS 

PRINT 


7 


o 

1 

i 

PRINT fn.iolist 

7 

! 

I 

i 

PRINT fn 

I 

7 

/! 

1 ■; 

PRINT(u,fn) iolist 

1 

7 

/! 

1 

PRINT*,iolist 

1 

7 

(\ 

PRINT{u,fn) 

: 'py- 

7 

/! 

PRINT(u, # ) iolist 

! 


1 1 



This statement transfers information from the storage locations named in the input/output list to the file 
named OUTPUT or the file specified by u, according to the specification in the format designator, fn or * 
If the user has not specified an alternate assignment, the file OUTPUT is sent to the printer. 
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The iolist can be omitted. For example. 


PRINT 20 

20 FORMAT (30H THIS IS THE END OF THE REPORT) 


PUNCH 



Data is transferred from the storage locations specified by iolist to the file PUNCH or the file specified by u. 
If the user has not specified an alternate assignment, the file PUNCH is output on the standard punch unit 
as Hollerith codes, 80 characters or less per card in accordance with format specification, fn. If the card 
image is longer than 80 characters, a second card is punched with the remaining characters. 
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Data is transferred from storage locations specified by iolist to the unit u according to FORMAT 
declaration, fn. 
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'program RITE (OUTPUT,TAPE6=0UTPUT) 
X-2.1 
Y = 3 . 


M = 7 


1001 


WRITE (6,100) X,Y,M 
FORMAT (2*6.2,14) 
STOP 
END 


The iolist can be omitted. For example. 


WRITE (4,27) 

27 FORMAT (32H THIS COLUMN REPRESENTS X VALUES) 


UNFORMATTED WRITE 


7 


/ 


WRITE (u) iolist 


Example: 


PROGRAM OUT(OUTPUT,TAPE10) 
DIMENSION A(260),B(4000) 


WRITE (10) A,B 
END 


This statement is used to output binary records. Information is transferred from the list variables, iolist. to 
the specified output unit. u. with no FORMAT conversion. One record is created by an unformatted 
WRITE statement. (Refer to section 5, part III). If the list is omitted, the statement writes a null record on 
the output device. A null record has no data but contains all other properties of a legitimate record. 
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Data is transferred from storage locations specified by the iolist to unit u in a manner consistent with the list 


directed input described below. 

For files referenced in list directed WRITE and PRINT statements, the maximum record length in characters 
should be specified in the PROGRAM statement (section 1-7). 

Example: PROGRAM Luw (OUTPUT=/£0 ♦ TAPE6»0UTPUT) 

INTEGER J(4) 

COMPLEX Z<2) 

00U8LEPRECISI0N Q 

DAIA J»Z .0/1*-2» 3»-4*(7. ♦—1.) ♦<-3. * 2 .)» 1.0-5/ 

WRITE(6,*)J 
WRITE(6»*)2»Q 
STOP 
END 

Output: 1-2 3-4 

<7.,-l.) (-3.,2.1 .00001 


INPUT STATEMENTS 

FORMATTED READ 



These statements transmit data from unit u to storage locations named in iolist according to FORMAT specification 
fn. The number of words in the list and the FORMAT specifications must conform to the record structure on the 
input unit. If the list is omitted, one or more FORTRAN records will be bypassed. The number of records bypassed 
is one plus the number of slashes interpreted in the FORMAT statement. Except for information read into H spec¬ 
ifications in the FORMAT statement, the data in the records skipped is ignored. 
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PROGRAM IN (INPUT,OUTPUT,TAPE4=INPUT,TAPE7=0UTPUT) 


200 


50 


READ (4,200) A,B,C 
FORMAT (3F7.3) 

A = B * C+A 
WRITE (7,50) A 
FORMAT (50X.F7.4) 
STOP 


The user should test for an end-of-file after each READ statement to avoid input/output errors. If an 
attempt is made to read on unit u and an EOF was encountered on the previous read operation on this unit, 
execution terminates and an error message is printed. (Refer to section 5. part III, EOF FUNCTION.) 



This statement transmits data from the INPUT file to the locations named in iolist. Data is converted in 
accordance with format specification fn. 


5 


ioq 


PROGRAM RLIST (INPUT,OUTPUT 
READ 5,X,Y,Z 
FORMAT (3G20.2) 

RESULT = X-Y+Z 
PRINT 100, RESULT 
FORMAT (10X.G10.2) 

STOP 

END 


) 


UNFORMATTED READ 


7 



READ (u) iolist 


/ 


7_ 

READ (u) 
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One record (refer to section 5, part III) of information is transmitted from the specified unit, u, to the 
storage locations named in iolist. Records must be in binary form; no format statement is used. The infor¬ 
mation is transmitted from the designated file in the form in which it exists on the file. If the number of 
words in the list exceeds the number of words in the record, execution diagnostic results. If the number of 
locations specified in the iolist is less than the number of words in the logical record, the excess data is 
ignored. If iolist is omitted READ (u) spaces over one record. 

PROGRAM AREAD (INPUT,OUTPUT,TAPE2 ) 

READ (2) X,Y,Z 
SUM = X+Y+Z/2. 

END 


LIST DIRECTED READ 


7 


ft 


READ(u,*| iolist 

1 

1 


7 

/! 


READ*, iolist 

i 

i 




These statements transmit data from unit u to storage locations named in iolist; the input data items are free 
form with separators rather than in fixed size fields. 

For files referenced in list directed READ statements, the maximum record length in characters should be 
specified in the PROGRAM statement (section 1-7). 

Example: 

PROGRAM LDR ( 1NPUT-/80* OUTPUT=/80tT APES* INPl IT * T APE6=*0UTPUT ) 
READ (5,*) CAT *BIRD*OOG 

WRITE (6 * *) /CAT = /* CAT* /8IKD « /* BIRD* /DOG * DOG 
STOP 

end 


Input: 

13.3, -5.2, .01 
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LIST DIRECTED INPUT DATA FORMS 

The list directed READ statement is similar to formatted I/O statements except an asterisk replaces the 
FORMAT statement number. For input statements, the form is: 

READ *, iolist 

READ(unit,*) iolist 

Input data consists of a string of values separated by: one or more blanks, a comma or a slash either of 
which may be preceded or followed by any number of blanks. Also, a line boundary, such as end of record 
or end of card, serves as a value separator. 

To repeat a value, an integer repeat constant is followed by an asterisk and the constant to be repeated. 

Blanks cannot be embedded in a constant or the specification of a repeated constant. 

A null may be input in place of a constant when the value assigned to the corresponding list entity is not 
to be changed. A null is indicated by the first character in the input string being a comma or by two com¬ 
mas or slashes separated by an arbitrary number of blanks. Nulls may be repeated by specifying an integer 
repeat count followed by an asterisk and any value separator. A null cannot be used for either the real or 
imaginary part of a complex constant; however, a null can represent an entire complex constant. 

When the value separator is a slash, remaining list elements are treated as nulls; when the next input state¬ 
ment is executed for this specified unit, the character following the slash becomes the first input character 
for the second READ. When the I/O list is exhausted and no slash has been encountered, the next list 
directed input on the same unit will begin at the following value separator. 

Constants in the input stream take the form of FORTRAN constants except: blanks are not allowed within 
a constant and a decimal point omitted from a real constant is assumed to occur to the right of the right¬ 
most digit of the mantissa. Otherwise, each constant must be of the same type as the corresponding list 
entry, or the job will be terminated. Furthermore, a repeated constant such as 4*7 should not be used as 
input data to variables of differing types. 

For example: 

READ15,*) I. J, X, Y 

can read correctly: 

2*7, 2*7 but not 4*7 

assuming that I and J are integer and X and Y are real. 

Repeated constants or repeated null values should be used entirely by one read. 

The only Hollerith constants permitted are those enclosed in the symbol f. They may contain embedded blanks. 
The paired symbols f f can be used to represent a single f within a character constant. A character string can¬ 
not be repeated, and it should be read into an integer variable or array. A character constant ot less than 10 
characters is padded on the right with blanks to fill the word. Only the first 10 characters are used if the 
constant exceeds 10 characters. 
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LIST DIRECTED OUTPUT DATA FORM 

List directed output is consistent with the input; however, null values, as well as slashes and repeated constants 
are not produced. For real or double precision variables with absolute values in the range of 10"^ to 10 y , an 
F format type of conversion is used; otherwise, an output is of the 1PE type. Trailing zeros in the mantissa 
and leading zeros in the exponent are suppressed. 

PRINTMist 

For list directed PRINT statements, a blank is output as the first character of each record and also as the 
first character when a long record is continued on another line; for list directed WRITE statements, a blank 
is output as the first character of each record only. 

List directed WRITE statements include the f symbols with the character output; therefore, they should be 
used if the list directed record output is to be input subsequently with a list directed READ statement. 

For example: 

PROGRAM H(OUTPUT=/80> 

X = 3.6 

PRINT*.*THE VALUE OF SQRT<*. X* IS = *♦ SqRT(X) 

WRITE*.*SAME WITH WRITE. SURTt*. X. *> IS »* *SQRT(X) 

STOP 

END 

Output: 

THE VALUE OF 5 dST C 3 . fc I IS = 1 *f»'i 736 65 9t>l j 1 

2SA ME WITH W-UTE, SQN T ( * 3.6 t) IS -t 1.397 36659610 1 
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FILE MANIPULATION STATEMENTS 


REWIND 



7_ 

REWIND u 


The REWIND operation positions a file so that the next FORTRAN input/output operation references the first 
record in the file; even though several ENDFILE statements may have been issued to that unit since the last 
REWIND. A mass storage file is positioned at the beginning of information. If the file is already at beginning 
of information, the statement acts as a do-nothing statement. (Refer to BACKSPACE/REWIND, section 5, 
part III for further information.) 

Example: 

REWIND 3 


BACKSPACE 



7_ 

BACKSPACE u 


Unit u is backspaced one logical record. If the file is at beginning of information, this statement acts as a 
do-nothing statement. A backspace operation should not follow a list directed read on a given file. 


§ BACKSPACE is permitted for F, S, or W record format or for tape files with one record per block. (Refer to 
BACKSPACE/REWIND, section 5, part III for further information.) 

Example: 


DO 1 LUN = 1,10,3 
1 BACKSPACE LUN 

Files TAPE1. TAPE4. TAPE7. and TAPE 10 are backspaced one logical record. 


§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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ENDFILE 



7 

ENDFILE u 


An end-of-file mark is written on the designated unit. 
Example: 


IOUT = 6L0UTPUT 
END FILE I OUT 

End-of-file is written on the file OUTPUT. 

Extended core storage and mass storage input/output statements are discussed in section 7, part III. 


BUFFER STATEMENTS 

The buffer statements and the read/write statements both accomplish data input/output: however, they 
differ in the following respects: 

A buffer control statement initiates data transmission and then returns control to the program so that 
it can perform other tasks while data transmission is in progress. A read/write statement completes 
data transmission before returning control to the program. 

In a buffer control statement, parity must be specified by a parity indicator. In the read/write control 
statement, the mode of transmission formatted (display code) or unformatted (binary) is tacitly 
implied. 

The read/write control statements are associated with a list and. if formatted, with a FORMAT 
statement. The buffer statements are not associated with a list: data is transmitted to or from a block 
of storage. 

7 __ 

BUFFER IN (u.p) (a,b) ] 


Integer constant or simple integer variable. Designates parity on 7-track magnetic tape, 
zero designates even parity: one designates odd parity, p is inoperative for other 
peripheral devices. 

First word of record to be transmitted. 

Last word of record to be transmitted. The address of b must be greater than the 
address of a. Arrays are stored in the order in which they appear in the dimension 
declaration with larger subscripts at higher addresses. 
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Each BUFFER IN statement causes one record of information to be transmitted from unit u to storage loca¬ 
tions a through b. A program should not reference either the unit u or the contents of storage locations a 
through b between the time a BUFFER IN statement is executed and the time a UNIT function (on the same 
unit) indicates the buffer operation is complete. The length of a BUFFER IN record can be ascertained through 
either the LENGTH function or the LENGTHX library subroutine (section 8, part I). 


1 


51 17 


PROGRAM TP (TAPE1»0UTPUT) 

INTEGER REC(512),RNUMB 
REWIND 1 

DO 4 RNUMG = 1,10000 

BUFFER IN (1,1) (REC(1),REC(512)) 

IF (UNIT(1)) 3,5,5 
K^LENGTH(1) 


C LENGTH RETURNS NUMBER OF WORDS TRANSFERRED BY BUFFER IN 


4 

100 

5 


PRINT 100,RNUMB,(REC(I),1*1,K) 
FORMAT (7HQRECORD,I5/(1X,1OA10)) 
STOP 
ENO 


Odd parity information is transferred from logical unit 1 into storage beginning at the first word of the 
record REC(l), and extending through the last word of the record REC(512). The UNIT function tests 
the status of the buffer operation. If the buffer operation is completed without error, statement 3 is 
executed. If an EOF or a parity error is encountered, control transfers to statement 5 and the program 
stops. 

Additional Example: 

DIMENSION CALC(50) 

BUFFER IN (1,0) (CALC(1),CALC{50)) 

Even parity information is transferred from logical unit 1 into storage beginning at the first word of the 
record, CALC(l), and extending through CALC(50), the last word of the record. 


I 


BUFFER OUT (u.p) <a,b) 


u,p,a,b are the same as for BUFFER IN 

Contents of storage locations a through b are written on unit u in even or odd parity. 
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Examples: 


BUFFER OUT(2,0)(OUTBUF(1),OUTBUF(4)) 

DIMENSION ALPHA(100) 

BUFFER OUT (2,1)(ALPHA(1),ALPHA{100)) 

One record is written for each BUFFER OUT statement. Section 5, part III contains further information 
regarding BUFFER IN/OUT statements. 


NAMELIST 

The NAMELIST statement permits input and output of groups of variables and arrays with an identifying 
name. No format specification is used. 


7 



NAMELIST/group name 


1 /a i 


I 

I 


,... ,a n / .. ./group name n /a 1 ,... ,a n 


group name Symbolic name which must be enclosed in slashes and must be unique within 

the program unit. 

a,,...,a n List of variables or array names separated by commas. 

The NAMELIST group name identifies the succeeding list of variables or array names. Whenever an input 
or output statement references the NAMELIST name, the complete list of associated variables or array 
names is read or written. 

A NAMELIST group name must be declared in a NAMELIST statement before it is used in an input/ 
output statement. The group name may be declared only once, and it may not be used for any purpose 
other than a NAMELIST name in the program unit. It may appear in any of the input/output statements 
in place of the format number: 

READ (u, group name) 

READ group name 
WRITE (u, group name) 

PRINT group name 
PUNCH group name 

It may not, however, be used in an ENCODE or DECODE statement in place of the format number. When 
a NAMELIST group name is used, the list must be omitted from the input/output statement. 

A variable or array name may belong to one or more NAMELIST groups. 
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Data read by a single NAMELIST name READ statement must contain only names listed in the referenced 
NAMELIST group. A set of data items may consist of any subset of the variable names in the NAMELIST. 
The value of variables not included in the subset remain unchanged. Variables need not be in the order in 
which they appear in the defining NAMELIST statement. 

PROGRAM NMLIST (INPUT , OUTPUT * TAPtb= INPuT ♦ T APtb=OUTPUT ) 

NAMELIST/SHIP/A»B»C»I1,I2 

READ(5* SHIP) 

IF (C.LE.O.)STOP 
A=B*C 
11=12 ♦ II 
WRITE (6 * SHIP) 

END 


Input record 
2 



SHIP A=12.2,B=20. 


,03.4,11 = 8,12-50$ 


Output 

S SHIP 

A = Q.234E+02, 

B = 0.2E+02, 


C = 0.34E+01, 

11 = 58, 

12 = 50, 

JENO 


READ (u.group name) 


Input data in the format described below is read from the designated unit, u when a READ statement 
references a NAMELIST group name. If no group name is found, and an end of file is encountered, a iatal 

error occurs. 
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INPUT DATA 



Data items succeeding $ NAMELIST group name are read until another $ is encountered. 

Blanks must not appear: 

Between $ and NAMELIST group name 
Within array names and variable names 
Within constants and repeated constant fields 

Blanks may be used freely elsewhere. 

A maximum of 150 characters per input record is allowed. More than one record may be used in input 
data. The first column of each record is ignored. All except the last record must end with a constant 
followed by a comma. 

Data items separated by commas may be in three forms: 
variable = constant 
array name = constant,....constant 

array name(integer constant subscripts) = constant,....constant 
Constants can be preceded by a repetition factor and an asterisk. 

Example: 


5 * (l. 7, - 2 .4) five complex constants. 

Constants may be integer, real, double precision, complex or logical. Logical constants must be of the form: 
.TRUE. .T. T .FALSE. .F. or F. A logical variable may be replaced only by a logical constant. A complex 
variable may be replaced only by a complex constant. A complex constant must have the form (real 
constant, real constant). Any other variable may be replaced by an integer, real or double precision 
constant; the constant is converted to the type of the variable. 
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OUTPUT 


7 



WRITE(u,group name) 


All variables and arrays, and their values, in the list associated with the NAMELIST group name are output 
on the designated unit, u. They are output in the order of specification in the NAMELIST Statement. 
Output consists of at least three records. The first record is a $ in column 2 followed by the group name; 
the last record is a $ in column 2 followed by the characters END. 

Example: 


PROGRAM NAME(INPUT♦OUTPUT * TAPES*INPUT,TAPE6*0UTPUT) 
NAMELIST/VALUES/TOTALIQUANT *COST 
DATA OUANT*COST/15* t3.02/ 

TOTAL = QUANT»C0ST*1.3 
WRITE (6*VALUES) 

STOP 

END 

Output 


SVALUES 
TOTAL 
QUAMT 
COST 


SENO 

No data appears in column 1 of any record. If the logical unit referenced is the standard punch unit and a 
variable crosses column 80, this and following variables are punched on the next card. The maximum 
length of a record written by a WRITE (u.group name) statement is 130 characters. Logical constants 
appear as T or F. Elements of an array are output in the order in which they are stored. 

Records output by a WRITE (u, group name) statement may be read by a READ (u. group name) 
statement using the same NAMELIST name. 


s n,58889999R9999RE*02* 
* 0.15E+02* 

= 0•302E+01 % 


Example: 


NAMELIST/ITEMS/X.Y.Z 


WRITE ( 6.ITEMS ) 


| 1-9-18 


60305600 D 
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Output record: 

$ITEMS 
X=734.2, 

Y-2374.9, 

Z-22.25, 

SEND 

This output may be read later in the same program using the following statement: 
READ(5,ITEMS) 


ARRAYS IN NAMELIST 

In input data the number of constants, including repetitions, given for an array name should not exceed the 
number of elements in the array. 

Example: 


DIMENSION BAT(10) 
NAMELIST/HAT/BAT,DOT 
READ (5,HAT) 


ft 


SHAT 


BAT“2,3,8*4,DOT-1.05SEND 


The value of DOT becomes 1.05, the array BAT is as follows: 


BAT( 1) 2 

BAT(2) 3 
BAT(3) 4 
BAT(4) 4 
BAT(5) 4 
BAT(6) 4 
BAT(7) 4 
BAT(8) 4 
BAT(9) 4 
BAT( 10) 4 


Example: 


DIMENSION GAY(5) 

NAMELI ST/DAY/GAY,BAY,RAY 
READ (5,DAY) 


Input Record: 



GAY(3)=7.2,GAY(5)=3.0,BAY=2.3,RAY-77.2$ 


array element =constant.....constant 
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I 


When data is input in this form, the constants are stored consecutively beginning with the location given by 
the array element. The number of constants need not equal, but may not exceed, the remaining number of 
elements in the array. 

Example: 


DIMENSION ALPHA (6) 

NAMELIST/BETA/ALPHA,DELTA,X,Y 
READ (5,BETA) 


Input record: 
2 


( 


T 

|$BETA ALPHA(3)“7 

I 


,8.,9..DELTA-2.$ 


In storage 


ALPHA(3) 7. 
ALPHA(4) 8. 
ALPHA(5) 9. 
DELTA 2. 


Data initialized by the DATA statement can be changed later in the program by the NAMELIST statement. 
Example: 


PROGRAM COSTS (INPUT,OUTPUT,TAPE5-INPUT,TAPE6-OUTPUT) 
DATA TAX,INT.ACCUM.ANET/23.,10,500.2,17.0/ 

NAMELIST/RECORDS/TAX,INT,ACCUM,ANET 
FIRST - TAX + INT 
SECOND = FIRST * SUM 


READ(5, RECORDS) 


Input Record: 
2 
T 


f 


|$RECORDS 


TAX-27. 


Example: 


ACCUM-666.2$ 


DIMENSION Y(3,5) 

LOGICAL L 
COMPLEX Z 

NAMELIST/HURRY/I1,12,13,K,M,Y,Z,L 
READ (5,HURRY) 
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Input Record: 


$HURRY 11=1,L=.TRUE.,12=2,13 = 3.5,Y(3,5)=26,Y(1,1)=11, 
12.0E1,13,4*14,Z=(1.,2.),K=16,M=17$ 


produce the following values: 


11 = 1 
12 = 2 
13 = 3 

Y ( 3,5)=26.0 
Y(1,1)=11.0 
Y ( 2 , 1 )= 120.0 
Y(3,l)=13.0 


Y(l,2)=14.0 

Y(2,2)=14.0 

Y(3,2)=14.0 

Y(l,3)=14.0 

K=16 

M=17 

Z=(l.,2. ) 

L=.TRUE. 


ENCODE AND DECODE 

The ENCODE and DECODE statements are used to reformat data in memory; information is transferred under 
FORMAT specifications from one area of memory to another. 

ENCODE is similar to a WRITE statement, and DECODE is similar to a READ statement. Data is 
transmitted under format specifications, but ENCODE and DECODE transfer data internally; no 
peripheral equipment is involved. For example, data can be converted to a different format internally 
without the necessity of writing it out on tape and rereading under another format. 


ENCODE 


ENCODE (c,fn,v) iolist 


Variable or array name which supplies the starting location of the record to be encoded. 

Unsigned integer constant or simple integer variable specifying the length of each 
record. 


The first record starts with the leftmost character of the location specified by v and continues for c characters, 
10 characters per computer word. If c is not a multiple of 10, the record ends before the end of the word is 
reached; and the remainder of the word is blank filled. Each new record begins with a new computer word. 
There is no intrinsic limit on c, except if v is a level 2 variable c must be less than or equal to 150. 

fn Format designator, statement label or integer variable, which must not be a NAME- 

LIST group name or an *. 

iolist List of variables to be transmitted to the location specified by v. 
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Example: 


5 


1 

2 


PROGRAM ENCOE (OUTPUT) 

DIMENSION A(2)*ALPHA(4) 

DATA A*B*C/10HABCDEFGHIJ*10HKLMNOPQRST*5HUVWXY»7HZ123456/ 
ENCODE (40*1♦ALPHA)A*B*C 
FORMAT (2A4*A5*A6) 

PRINT 2*ALPHA 

FORMAT (20H1CONTENTS OF ALPHA **8A10> 

STOP 

END 


In memory after ENCODE statement has been executed. 



WXYZ12345 



ALPHA (1) 

ALPHA (2) 

ALPHA (3) 

ALPHA (4) 


ENCODE is a core-to-core transfer of data, which is similar to WRITE. Data in the iolist, in internal form, is 
converted under FORMAT specifications, fn, and written in display code into an array or variable. 

An integral number of words is allocated for each record created by an ENCODE statement. If c is not a 
multiple of 10, the record ends before the end of the word is reached; and the remainder of the word is 
blank filled. 

If the list and the format specification transmit more than the number of characters specified per record, an 
execution error message is printed. If the number of characters transmitted is less than the length specified 
by c, remaining characters in the record are blank filled. 

For example, in the following program which is similar to program ENCDE above, the format statement 
has been changed; so that two records are generated by the ENCODE statement. A( 1) and A(2) are written 
with the format specification 2A4, the / indicates a new record, and the remaining portion of the 40 
character record, c, is blank filled. B and C are written into the second record with the specification A5 and 
A6, and the remaining characters are blank filled. The dimensions of the array ALPHA must be increased 
to 8 to accommodate two 40-character records. 
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5 


1 

2 


PROGRAM TWO (OUTPUT) 

DIMENSION A(2)* ALPHA(8) 

DATA A*B*C/10HA8CUEFGHIJ*1OHKLMNOPURST*5HUVWAY *7hZ123486/ 
ENCODE (40*1*ALPHA)A»8*C 
FORMAT (2A4/A5 * A6) 

PRINT 2*ALPHA 

FORMAT (20H1CONTENTS OF ALPHA =*8A10) 

STOP 

E.niD 


Output: 

CONTENTS OF ALPHA =ABCOKLMN 

If this same ENCODE statement is altered to: 


UVWXYZ12345 


ENCODE (33,1,ALPHA)A,B,C 
1 FORMAT (2A4/A5.A6) 

The contents of ALPHA remain the same. When a record ends in the middle of a word the 
remainder of the word is blank filled (each new record starts at the beginning of a word). 


Record 1 

Record 2 




blank 

fill 

UVWXYZ1234 

5 


ABCOKLMN 


blank 

fill 


ALPHAOI 


ALPHAI21 ALPHAW) 


ALPHA14) 

t 


end of record 


ALPHA(S) ALPHAW) ALPHAI7) ALPHAI8) 

end of record 


The array in core must be large enough to contain the total number of characters specified in the ENCODE 
statement. For example, if 70 characters are generated by the ENCODE statement, the array starting at 
location v (if v is a single word element) must be dimensioned at least 7. If 27 characters are generated, the 
array must be dimensioned 3. If only 6 characters are generated, v can be a 1-word variable. 


The following example illustrates that it is possible to encode an area into itself, and the information 
previously contained in the area will be destroyed. 


5 


7 

10 


PROGRAM ENC02 (OUTPUT) 
1=10H6CDEFGHIJK 

IA=1H1 

encode (8»io*n i»ia»i 

FORMAT (A3 » A 1*R4) 

1 1 


PRINT 11*1 

FORMAT (All) 



end 


Printout is: 


BCDIHIJKbb 
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ENCODE may be used to calculate a field definition in a FORMAT specification at object time. Assume 
that in the statement FORMAT (2A10,lm) the programmer wishes to specify m at some point in the 
program. The following program permits m to vary in the range 2 through 9. 

IF(M.LT. 10 .AND.M.GT.X) 1 ,2 
1 ENCODE ( 10,100, SPECMAT)M 
100 FORMAT ( 7H( 2A10,I,II, 1H)) 


PRINT SPECMAT,A,B,J 

M is tested to ensure it is within limits; if it is not, control goes to statement 2, which could be an 
error routine. If M is within limits, ENCODE packs the integer value of M with the characters 
(2A10.I ). This packed FORMAT is stored in SPECMAT. SPECMAT contains (2A10,Im). 

A and B will be printed under specification A10, and the quantity J under specification 12, through 
19 according to the value of m. 

The following program is another example of forming FORMAT statements internally: 

PROGRAM IGEN (OUTPUT,TAPE6-OUTPUT) 

DO 9 J-1,50 
ENCODE (10,7,FMT)J 
7 FORMAT (2H(I,I2,1H)) 

9 WRITE (6,FMT)J 
STOP 
END 

In memory, FMT is first (I 1) then (I 2), then (I 3), etc. 


DECODE 



c, fn, and v are the same as for ENCODE. 


iolist is the list to receive variables from the location specified by v. iolist conforms to the 
syntax of an input/output list. 
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5 

7 

2 

PROGRAM ADD (INPUT*0UTPUT,TAPE5*INPUT*TAP£6»0UTPUT) 
DIMENSION CARD (8)* INK (77) 

READ (5*100) KEYltCARD 

100 

FORMAT (I1,7A10*A9) 

90 

IF (EOF(5)) 80*90 

IF (KEY1-2) 3*8*3 

3 

CALL ERR0R1 

8 

GO TO 2 

WRITE (6*300) CARD 

300 

FORMAT (1H1*7A10*A7///) 

17 

DECODE (77*17 *CARD) INK 

FORMAT (7711) 

4 

ITOT = 0 

DO 4 I = 1*77 

ITOT = ITOT ♦ INK(I) 

200 

ISAVE = ITOT 

WRITE (6*200) ISAVE 

FORMAT (19X**T0TAL OF 77 SCORES ON CARD * **110) 

80 

STOP 

1 

END 

SUBROUTINE ERROR1 

WRITE (6*1) 

FORMAT (5X**NUMBER IS NOT 2*) 


RETURN 

END 


(An explanation of this program appears in part II.) 


DECODE is a core-to-core transfer of data similar to READ. Display code characters in a variable or an array, 
v, are converted under format specifications and stored in the list variables, iolist. DECODE reads from a string 
of display code characters in an array or variable in memory; whereas the READ statement reads from an input 
device. Both statements convert data according to the format specification, fn. Using DECODE, however, the 
same information can be read several times with different DECODE and FORMAT statements. 


Starting at the named location, v, data is transmitted according to the specified format and stored in the list 
variables. If the number of characters per record is not a multiple of 10 (a display code word contains 10 dis¬ 
play code characters) the balance of the word is ignored. However, if the number of characters specified by 
the list and the format specification exceeds the number of characters per record, an execution error message 
is printed. DECODE processing an illegal BCD character for a given conversion specification produces a FATAL 
error. If DECODE is processing an A or R FORMAT specification and encounters a zero character (6 bits 
of binary zero), the character is treated as a colon under 64-character set or as a blank under 63-character set. 


Example: 

c ** multiple of 10 

DECODE (16,1,GAMMA) X,B,C,D 
1 FORMAT (2A8) 
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beginning of new record 


Record 1 



Record 2 


GAMMA 



Data transmitted under this DECODE specification would appear in storage as follows: 

X-HEADER 1 
B-21HEAD 
C-HEADER 1 
D-22HEAD 

The following illustrates one method of packing the partial contents of two words into one. Information is 
stored in core as: 

LOC(1)SSSSSxxxxx 


LOC(6)xxxxxDDDDD 

To form SSSSSDDDDD in storage location NAME: 

DECODE(10,1,LOC(6))TEMP 

1 FORMAT!5X.A5) 

ENCODE!10,2,NAME)L0C(1),TEMF 

2 FORMAT(2A5) 

The DECODE statement places the last 5 display code characters of LOC(6) into the first 5 
characters of TEMP. The ENCODE statement packs the first 5 characters of LOC(l) and TEMP into 
NAME. 

Using the R specification, the example above could be shortened to: 

ENCODE(10,1,NAME)LOC(1), LOC(6) 

1 FORMAT!A5.R5) 
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INPUT/OUTPUT LISTS AND FORMAT STATEMENTS 


1-10 


This chapter covers input/output lists and FORMAT statements. Input/output statements, which include 
READ and WRITE, are covered in section 1-9. 


INPUT/OUTPUT LISTS 

The list portion of an input/output statement specifies the items to be read or written and the order of 
transmission. The input/output list can contain any number of elements. List items are read or written 
sequentially from left to right. 

If no list appears on input, a record is skipped. Only Hollerith information from the FORMAT statement 
can be output with a null (empty) output list. 

A list consists of a variable name, an array name, an array element name, or an implied DO list. Chi output 
the data list can include Hollerith constants and arithmetic expressions. Such expressions must not reference 
a function if such reference would cause any input/output operations (including DEBUG output) to be 
executed or would cause the value of any element of the output statement to be changed. 

Multiple lists may appear, separated by commas, each of which may be enclosed in parentheses, such as: 
(-),(•••)• 

An array name without subscripts in an input/output list specifies the entire array in the order in which it 
is stored. The entire array (not just the first word of the array) is read or written. 

Subscripts in an input/output list may be any valid subscript (section 1-2). 

Examples: 


READ 100,A,B , C,D 

READ 200,A,B,C(I),D(3,4),E(I,J,7),H 
READ 101,J,A(J),I,B(I,J ) 

READ 202,DELTA 

READ 102, DELTA(5*J+2,5*1-3,5*K),C,D(I+7) 
READ 3,A,(B,C,D),(X,Y) 


An implied DO list is a list followed by a comma and an implied DO specification, all enclosed in 
parentheses. 
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A DO-implied specification takes one of the following forms: 
i = m|,m 2 ,m 3 i = m^rm 

The elements i, m,, m 2 , and m, have the same meaning as in the DO statement. The range of a DO-implied 
specification is that of the DO-implied list. The values of i. m,, m 2 . and m 3 must not be changed within the 
range of the DO implied list by a READ statement. 

On input or output, the list is scanned and each variable in the list is paired with the field specification 
provided by the FORMAT statement. After one item has been input or output, the next format specification 
is taken together with the next element of the list, and so on until the end of the list. 

Example: 


READ (5,20)L,M,N 
20 FORMAT (13,12,17) 

Input record 


/™ c 

22 

3456712 


r 





12, and 3456712 is read into N under specification 17. 


Reading more data than is in the input stream produces unpredictable values. The EOF function described in 
section 1-8 may be used to test for end-of-file. 


ARRAY TRANSMISSION 

Input/output of array elements may be accomplished by using an implied DO loop. The list of variables 
followed by the DO loop index, is enclosed in parentheses to form a single element of the input/output list 

Example: 


READ (5,100) (A(I),1=1,3) 

has the same effect as the statement 

READ (5,100) A(l),A{2),A(3) 

The general form for an implied DO loop is: 

(...((list, i |=m |, m 2 , m,) ,i 2 =j ,, j 2 , j 3 ) , • . . ,i n =k|,lc 2 ,X 3 ) 

m,j,k are unsigned integer constants or predefined positive integer variables. If m 3 , j 3 or k 3 is omitted, 
a one is used for incrementing. 

i 1 ".in are integer control variables. A control variable should not be used twice in the same implied DO nest, 
but array names, array elements, and variables may appear more than once. 
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The first control variable (i,) defined in the list is incremented first, i, is set equal to m, and the associated list is 
transmitted; then i, is incremented by m 3 , until m 2 is exceeded. When the first control variable reaches m 2 , it is 
reset tom,; the next control variable at the right (i 2 ) is incremented; and the process is repeated until the last 
control variable (i n ) has been incremented, until k 2 is exceeded. 

The general form for an array is: 

( ((A( I, J ,K), i |-ni|,m 2 ,mj), i 2 *=n, t n,, n 3 ), iy*k,,k 2 ,k 3 ) 

Example: 


READ 100,((A(JV,JX),JV=2,20,2),JX=1,30) 

READ 200,(BETA(3*J0N+7),JON-JONA,JONB,JONC) 

READ 300,(((ITMLIST(I,J + l,K- 2) ,1 = 1,25),J-2,N),K-IVAR,IVMAX,4) 

An implied DO loop can be used to transmit a simple variable more than one time. For example, the list 
item (A(K),B,K = 1,5) causes the variable B to be transmitted five times. An input list of the form 
K.,(A(I),I = 1,K) is permitted, and the input value of K is used in the implied DO loop. The index variable 
in an implied DO list must be an integer variable. 

Examples of simple implied DO loop list items: 

READ 400,(A(I),I=1,10) 

400 FORMAT (E20.10) 

The following DO loop would have the same effect: 

DO 5 1-1,10 
5 READ 400, A(I) 


Example: 

CAT,DOG, and Ra 4 will be transmitted 10 times each with the following iolist 
(CAT, DOG, RAT, 1-1,10) 

Implied DO loops may be nested. 

Example: 


DIMENSION MATRIX(3,4,7) 

READ 100, MATRIX 
100 FORMAT (16) 

Equivalent to the following: 

DIMENSION MATRIX(3,4,7) 

READ 100,(((MATRIX(I,J,K),1-1,3),J=1,4),K=1,7) 
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The list is similar to the nest of DO loops: 


00 5 K=1,7 
DO 5 J = 1,4 
DO 5 1-1,3 

5 READ 100, MATRIX(I,J,K) 

Example: 

The following list item transmits nine elements into the array E in the order: E(l,l), E(l,2), E( 1,3), 
E(2,l), E(2,2), E(2,3), E(3,l), E(3,2), E(3,3) 

READ 100,((E(I,J),J=1,3)I-1,3) 


Example: 


READ 100,(^( ((A(I,J,K),B(I,1)C(J,N),I-1,10),J-1,5), 

X K-1,8),L-1,15),N-2,7) 

Data is transmitted in the following sequence: 

A( 1,1,1) , B(1,1), C(l,2), - A(2,l,l), B(2,l), - C(l,2)... 

..,A(10,1,1), B(10,l), C(l,2), A(1,2,1), B(l.l), C(2,2)... 

..,A(10,2,1), B(10,1), C(2,2),...A(10,5,1), B(10,l), C(5,2)..- 
...A(10,5,8), B(10,1), C(5,2),...A(10,5,8) , B(10,15), C(5,2)... 

Data can be read from or written into part of an array by using the implied DO loop. 


Examples: 


READ (5,100) (MATRIX(I),1-1,10) 

100 FORMAT (F7.2) 

Data (consisting of one constant per record) is read into the first 10 elements of the array MATRIX. 
The following statements would have the same effect: 

DO 40 i - 1,10 
40 READ (5,100) MATRIX(I) 

100 FORMAT (F7.2) 


In this example, assuming unit 5 is the card reader, numbers are read, one from each card, into the elements 
MATRIXfl) through MATRIX(IO) of the array MATRIX. The READ statement is encountered each time 
the DO loop is executed; and a new card is read for each element of the array. Each execution of a READ 
statement reads at least one record regardless of the FORMAT statement. 
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HEAD (5,100) (MATRIX(I),1=1,10) 

100 FORMAT (F7.2) 

In the above statements, the implied DO statement is part of the READ statement; therefore, the 
FORMAT statement specifies the format of the data input and determines when a new card will be 
read. 

If statement 100 FORMAT (F7.2) had been 100 FORMAT (4F20.10), only three cards would be 
read. 

To read data into an entire array, it is necessary only to name the array in a list without any subscripts. 
Example: 


DIMENSION B (10,15) 

READ 13,B 

is equivalent to 

READ 13,((B(I,J),1=1,10),J=1,15) 
The entire array B will be transmitted in both cases. 


FORMAT STATEMENT 

Input and output can be formatted or unformatted. Formatted information consists of strings of characters 
acceptable to the FORTRAN processor. Unformatted information consists of strings of binary word values 
in the form in which they normally appear in storage. A FORMAT statement is required to transmit 
formatted information. 


sn 


fs,.fs„ 


5 7 


sn 


FORMAT (fs,.fs n ) 


Statement label which must appear 


Set of one or more field specifications separated by commas and/or slashes and 
optionally grouped by parentheses 


Example: 


READ (5,100) INK,NAME,AREA 
100 FORMAT (10X,14,12,F7.2) 

FORMAT is a non-executable statement which specifies the format of data to be moved between input/output 
device and main memory. It is used in conjunction with read and write statements, and it may appear anywhere in 
the program. 
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The FORMAT specification is enclosed in parentheses. Blanks are not significant except in Hollerith field 
specifications. 

Generally, each item in an input/output list is associated with a corresponding field specification in a FORMAT 
statement. The FORMAT statement specifies the external format of the data, and the type of conversion to 
be used, and defines the length of the FORTRAN record or records. COMPLEX variables always correspond 
to two field specifications. DOUBLE variables correspond to one floating point field specification (D, E, F, G) 
or two of any other kind. The D field specification will correspond to exactly one list item or half of a 
COMPLEX item. 

The type of conversion should correspond to the type of the variable in the input/output list. The 
FORMAT statement specifies the type of conversion for the input data, with no regard to the type of the 
variable which receives the value when reading is complete. 

For example: 

INTEGER N 
READ (5,100) N 
100 FORMAT (F10.2) 

A floating point number is assigned to the variable N which could cause unpredictable results if N is 
referenced later as an integer. 

DATA CONVERSION 


The following types of data conversions are available: 

srEw.d 

Single precision floating point with exponent 

srEw.dEe 

With explicitly specified exponent length 

srEw.dDe 

With explicitly specified exponent length 

srFw.d 

Single precision floating point without exponent 

srGw.d 

Single precision floating point with or without exponent 

srDw.d 

Double precision floating point with exponent 

rlw 

Decimal integer conversion 

rlw.z 

With minimum number of digits specified 

rLw 

Logical conversion 

rAw 

Character conversion 

rRw 

Character conversion 

rOw 

Octal integer conversion 

rOw.z 

With minimum number of digits specified 

rZw 

Hexadecimal conversion 

srVw.d 

Variable type conversion 
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E. F. G, D. 1. L, A, R, 0, and Z are the codes which indicate the type of conversion. 

w Non-zero, unsigned, integer constant which specifies the field width in number of character 

positions in the external record. This width includes any leading blanks, + or - signs, deci¬ 
mal point, and exponent. 

d Integer constant which represents the number of digits to the right of the decimal point 

within the field. On output all numbers are rounded. 

r Unsigned integer constant which indicates the conversion code is to be repeated. 

s Optional; it represents a scale factor. 

z Minimum number of digits to output. 

The field width w must be specified for all conversion codes. If d is not specified for w.d. it is 
assumed to be zero, w must be > d. 


FIELD SEPARATORS 

Field separators are used to separate specifications and groups of specifications. The format field separators 
are the slash (/) and the comma. The slash is also used to specify demarcation of formatted records. 


CONVERSION SPECIFICATION 

Leading blanks are not significant in numeric input conversions; other blanks are treated as zeros. Plus 
signs may be omitted. An all blank field is considered to be minus zero, except Tor logical input, where an 
all blank field is considered to be FALSE. When an all blank field is read with a Hollerith input 
specification, each blank character will be translated into a display code 55 octal. 

For the E. F. G, and D input conversions, a decimal point in the input field overrides the decimal point 
specification of the field descriptor. 

The output field is right justified for all output conversions. If the number of characters produced h\ the 
conversion is less than the field width, leading blanks are inserted in the output field. The number ot 
characters produced by an output conversion must not be greater than the field width. If the field width is 
exceeded, asterisks are inserted throughout the field. 

Complex data items are converted on input/output as two independent floating point quantities. The 
format specification uses two conversion elements. 

Example: 


COMPLEX A,B,C,D 
PRINT 10,A 

10 FORMAT (F7.2.E8.2) 

READ 11,B,C,D 

11 FORMAT (2E10.3,2(F8.3,F4.1)) 

Data of differing types may be read by the same FORMAT statement. For example: 
10 FORMAT (I 5,FI 5.2) 
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specifies two numbers, the first of type integer, the second of type real. 


READ (5,15) NO,NONE,INK,A,B,R 
15 FORMAT (315,2F7.2,A4) 

reads 3 integer variables 
reads 2 real variables 
reads 1 character variable 


Iw and Iw.z INPUT 

The I conversion is used to input decimal integer constants. 

Iw Iw.z 

w is a decimal integer constant designating the total number of characters in the field including signs and 
blanks, z is ignored on input. 

The plus sign may be omitted for positive integers. When a sign appears, it must precede the first digit in 
the field. Blanks are interpreted as zeros. An all blank field is considered to be minus zero. Decimal points 
are not permitted. The value is stored in the specified variable. Any character other than a decimal digit, 
blank, or the leading plus or minus sign in an integer field on input will terminate execution. 

Example: 


READ 10,I,J,K,L,M,N 
10 FORMAT (13,17,12,13,12,14) 

Input Card: 

/l39jbb-15btJiajbb7|btftlb4| 

I 3 7 2 3 2 4 


In storage: 

I contains 139 
J contains -1500 
K contains 18 


L contains 7 
M contains -0 
N contains 104 


Iw and Iw.z OUTPUT 

The I specification is used to output decimal integer values. 

Iw Iw.z 

w is a decimal integer constant designating the total number of characters in the field including signs and 
blanks. If the integer is positive the plus sign is suppressed. Numbers in the range of -2-° + 1 to 2^-1 
(2^-1=576 460 752 303 423 487) are output correctly. 

z is a decimal integer constant designating the minimum number of digits output. Leading zeros are generated 
when the output value requires less than z digits. If z=0, a zero value will produce all blanks. If z=w. no blanks 
will occur in the field when the value is positive, and the field will be too short for any negative value. Not 
specifying z produces the same results as z=l. 
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The specification Iw or Iw.z outputs a number in the following format: 
ba...a 

b Minus sign if the number is negative, or blank if the number is positive 

a...a May be a maximum of 18 digits 

The output quantity is right justified with blanks on the left. 

If the field is too short, all asterisks occupy the field. 

Example: 


PRINT 10,I,J,K 1 contains-3762 

J contains +4762937 

10 FORMAT (19,110,15.3) K contains +13 

Result: 

8 10 5 

f 

1st blank taken as 
printer control character 


bbb-37 


62|bbb4762937)bb013j 


Example: 


WRITE (6,100)N,M,I 
100 FORMAT (15,16,19) 


N contains + 20 
M contains -731450 
1 contains +205 


Result: 


bb 20| * *** * *|bbbbbb 2051 


1st blank taken 
as printer control 
character 


1 6 9 

t 

specification too 
small}* indicates field 
is too short 


Ew.d, Ew.dEe and Ew.dDe OUTPUT 

E specifies conversion between an internal real value and an external number written with exponent. 

Ew.d Ew.dEe Ew.dDe 

w is an unsigned integer designating the total number of characters in the field, w must be wide enough to 
contain digits, plus or minus signs, decimal point, E, the exponent, and blanks. Generally, w > d + 6 
or w > d + e + 4 for negative numbers and w>d + 5orw>d+e + 3for positive numbers. Positive 
numbers need not reserve a space for the sign of the number. If the field is not wide enough to contain the 
output value, asterisks are inserted throughout the field. If the field is longer than the output value, the quan¬ 
tity is right justified with blanks on the left. If the value being converted is indefinite, an I is printed in the 
field; if it is out of range, an R is printed. 
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d specifies the number of digits to the right of the decimal within the field. 

e specifies the number of digits in the exponent. 

The Ew.d specification produces output in the following formats: 

b a ...aE ± ee For values where the magnitude of the exponent is less than one hundred 

b.a...a ± eee For values where the magnitude of the exponent exceeds one hundred 

b is a minus sign if the number is negative, and a blank if the number is positive 

a...a is the most significant digits of the value correctly rounded 

When the specification Ew.dEe or Ew.dDe is used, the exponent is denoted by E or D and the number of 
digits used for the exponent field not counting the letter and sign is determined by e. If e is specified too 
small for the value being output, the entire field width as specified by w will be filled with asterisks. 

Examples: 

PRINT 10,A A contains -67.32 or +67.32 

10 FORMAT (E10.3) 

Result: -.673E+02 orb.673E+02 

PRINT 10,A 
10 FORMAT (E13.3) 

Result: bbb~.673E+02 or bbbb.673E+02 

If an integer variable is output under the Ew.d specification, results are unpredictable since the internal format 
of real and integer values differ. An integer value does not have an exponent and will be printed, therefore, as 
a very small value or 0.0. 
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Ew.d, Ew.dEe and Ew.dDe INPUT 

E specifies conversion between an external number written with an exponent and an internal real value. 

Ew.d Ew.dEe Ew.dOe 

w is an unsigned integer designating the total number of characters in the field, including plus or minus 
signs, digits, decimal point, E and exponent. If an externa! decimal point is not provided, d acts as a 
negative power-of-10 scaling factor. The internal representation of the input quantity is: 

(integer subfield )X 10' J X 10 <e*P°nent subfietdl 

For example, if the specification is E10.8. the input quantity 3267E + 05 is converted and stored as: 
3267 x 10'* x 10-=3.267. 

If an external decimal point is provided, it overrides d. If d does not appear it is assumed to be zero, e, if 
specified, has no effect on input. 

In the input data, leading blanks are not significant; other blanks are interpreted as zeros. 

An input field consisting entirely of blanks is interpreted as minus zero. 

The following diagram illustrates the structure of the input field: 


input field 


+ 


+ 

- 

K 

- 

digit 


E or D 


integer fraction exponent 

subfield subfield 


The integer subfield begins with a + or - sign, a digit, or a blank: and it may contain a string of digits. The 
integer field is terminated by a decimal point, E. + . - or the end of the input field. 

The fraction subfield begins with a decimal point and terminates with an E. + . - or the end of the input 
field. It may contain a string of digits. 

The exponent subfield may begin with E, + or -. When it begins with E. the + is optional between E and 
the string of digits in the subfield. 

For example, the following are valid equivalent forms for the exponent 3: 


m 

♦ 

o 

E 03 

E03 

E ♦ 3 

E3 

♦ 3 

>3 

D3 

D*3 

D* 3 


The range, in absolute value, of permissible values is 3.13152E-294 to 1.26501E322 approximately. Smaller 
numbers will be treated as zero; larger numbers will cause a fatal error message. 
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Valid subfield combinations 
+ 1.6327E-04 
-32.7216 
+ 328 + 5 
.629E-I 
+ 136 
136 

.07628431 


Integer-f raction-exponent 

integer-fraction 

integer-exponent 

f raction-exponent 

integer only 

integer only 

fraction only 


E-06 (interpreted as zero) exponent only 

If the field length specified by w in Ew.d is not the same as the length of the field containing the input 
number, incorrect numbers may be read, converted, and stored. The following example illustrates a 
situation where numbers are read incorrectly, converted and stored; yet there is no immediate indication 
that an error has occurred: 


READ 20,A,B,C 

20 FORMAT (E9.3,E7.2,E10.3) 

On the card, input quantities are in three adjacent fields, columns 1-24: 


( /r6.47E-01 

-2.36 

+ 5.321E + 02 

|--- 



9 5 10 


9 7 10 

{+6~. 47E-Q1 1 
+ 6.47E-0l F~2.36 + 5l 
+ 6.47E-01-2.36 + 5 ^*321 E+02bb] 

First. +647E-01 is read, converted and placed in location A. The second specification E7.2 exceeds 
the width of the second field by two characters. The number -2.36 + 5 is read instead of -2.36. The 
specification error (E7.2 instead of E5.2) caused the two extra characters to be read. The number 
read (-2.36 + 5) is a legitimate input number. Since the second specification incorrectly took two 
digits from the third number, the specification for the third number is now incorrect. The number 
,321E + 02bb is read. Trailing blanks are treated as zeros; therefore the number .32 IE+ 0200 is read 
converted and placed in location C. Elere again, this is a legitimate input number which is converted 
and stored, even though it is not the number desired. 
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Examples of Ew.d input specifications: 


Input Field 

Specification 

Converted Value 

Remarks 

+143.26E-03 

El 1.2 

.14326 

All subfields present 

-12.437629E+1 

El 3.6 

-124.37629 

All subfields present 

327.625 

E7.3 

327.625 

No exponent subfield 

4.376 

E5 

4.376 

No d in specification 

0003627+5 

E11.7 

-36.27 

Integer subfield left of decimal 
contains only a minus sign and a 
plus sign appears instead of E in 
input field 

-.0003627 E5 

El 1.7 

-36.27 

Integer subfield left of decimal 
contains minus sign only 

blanks 

Ew.d 

- 0 . 

All subfields empty 

1 El 

E3.0 

10. 

No fraction subfield; input num¬ 
ber converted as 1.x 10 

E+06 

E10.6 

0 . 

No integer or fraction subfield; 
zero stored regardless of expo¬ 
nent field contents 

l.bEbl 

E6.3 

10. 

Blanks are interpreted as zeros 

1.0E16 

E6.3 

10000000000000. 



Fw.d OUTPUT 


The F specification outputs a real number without a decimal exponent. 

Fw.d 

w is an unsigned integer which designates the total number of characters in the field including the 
sign (if negative) and decimal point, w must be > d + 2. 

d specifies the number of places to the right of the decimal point. When d is zero, only the digits to the 
left of the decimal and the decimal point are printed. 

The plus sign is suppressed for positive numbers. If the field is too short, all asterisks appear in the output field. 
If the field is longer than required, the number is right justified with blanks on the left. If the value being 
converted is indefinite, an I is printed in the field; if it is out of range, an R is printed. 
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The specification Fw.d outputs a number in the following format: 

__decimal point 

b...afa...a 

b Minus sign if the number is negative, or blank if the number is positive. 


Examples: 


Value of A 

FORMAT Statement 

PRINT Statement 

Printed Result 

+32.694 

10 FORMAT (1H ,F6.3) 

PRINT 10,A 

32.694 

+32.694 

11 FORMAT (1H ,F 10.3) 

PRINT 11,A 

bbbb32.694 

-32.694 

12 FORMAT (1H ,F6.3) 

PRINT 12,A 

****** 

.32694 

13 FORMAT (1H ,F4.3,F6.3) 

PRINT 13,A,A 

,327bb.327 


The specification 1H is the carriage control character. 


Fw.d INPUT 

On input F specification is treated identically to the E specification. 
Examples of the F format specification:_ 


Input Field 

Specification 

Converted Value 

Remarks 

367.2593 

F8.4 

367.2593 

Integer and fraction field 

-4.7366 

F7 

-4.7366 

No d in specification 

.62543 

F6.5 

.62543 

No integer subfield 

.62543 

F6.2 

.62543 

Decimal point overrides d of speci¬ 
fication 

+ 144.15E-03 

F11.2 

.14415 

Exponents are allowed in F input, 
and may have P scaling 

5bbbb 

F5.2 

500.00 

No fraction subfield: input number 
converted as 50000x10 2 

bbbbb 

F5.2 

-0.00 

Blanks in input field interpreted as 
-0 
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Gw.d INPUT 


Input under control of G specification is the same as for the E specification. The rules which apply to the E 
specification apply to the G specification. . 

Gw.d 

w Unsigned integer which designates the total number of characters in the field including 

E, digits, sign, and decimal point 

d Number of places to the right of the decimal point 

Example: 

READ (5,11) A, 6 , C 
11 FORMAT (G13.6.2G12.4) 

Gw.d OUTPUT 

Output under control of the G specification is dependent on the size of the floating point number being 
converted. The number is output under the F conversion unless the magnitude of the data exceeds the range 
which permits effective use of the F. In this case, it is output under E conversion with an exponent. 

Gw.d 

w Unsigned integer which designates the total number of characters in the field including 

digits, signs and decimal point, the exponent E, and any leading blanks. 


d Number of significant digits output. 

If a number is output under the G specification without an exponent, four spaces are inserted to the right of 
the field (these spaces are reserved for the exponent field E±00). Therefore, for output under G conversion 
w must be greater than or equal to d + 6. The six extra spaces are required for sign and decimal point plus 
four spaces for the exponent field. 

Example: 


PRINT 200,YES YES contains 77.132 

200 FORMAT (G10.3) 

Output: b77. lbbbb b denotes a blank 

If the decimal point is not within the first d significant digits of the number, the exponential form is used 
(G is treated as if it were E). 
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Example: 


PRINT 100, EXIT EXIT contains 1214635.1 

100 FORMAT (G10.3) 

Output: .1215E+07 

Example: 

READ (5,50) SAMPLE 


WRITE (6,20) SAMPLE 
20 FORMAT (1X.G17.8) 


Data read by 

READ statement 

Data Output 

format Option 

,1415926535bE-10 

.141592653E-10 

E conversion 

.8979323846 

.89793238 

t 

F conversion 

2643383279. 

.264338328E+10 

E conversion 

-693.9937510 

-693.99375 

F conversion 


Dw.d OUTPUT 
Dw.d 

Type D conversion is used to output double precision variables. D conversion corresponds to E conversion 
except that D replaces E at the beginning of the exponent subfield. If the value being converted is 
indefinite, an I is printed in the field; if it is out of range, an R is printed. 
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Examples of type D output: 

DOUBLE A,B , C 
A = 111X11.11111 
B = 222222.22222 
C = A + B 
PRINT 10,A,B,C 
10 FORMAT (3D23.11) 

.11111111111D+06 .22222222222D+06 .33333333333D+06 

The specification Dw.d produces output in the following format: 

I- decimal point 

b.a...a±eee -308 < eee< 337 

b.a...aD±ee 0< ee< 99 

b Minus sign if the number is negative, or blank if the number is positive 

a...a Most significant digits 

ee Digits in the exponent 

Dw.d INPUT 

D conversion corresponds to E conversion except that D replaces E at the beginning of the exponent 
subfield. 

The following diagram illustrates the structure of the input field: 


input field 



integer fraction exponent 

subfield subfield 


Ow INPUT 

Octal values are converted under the O specification. 

Ow 

w is an unsigned integer designating the total number of characters in the field. The input field may contain 
a maximum of 20 octal digits. Blanks are allowed and a plus or minus sign may precede the first octal digit. 
Blanks are interpreted as zeros and an all blank field is interpreted as minus zero. A decimal point is not 
allowed. 

The list item corresponding to the Ow specification should be integer. 
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Example: 


INTEGER P,Q,R 
READ 10,P.Q.R 
10 FORMAT (010,012,02) 


Input Card: 



Input storage (octal representation): 


P 

Q 

R 


00000000003737373737 

00000000666066440444 

77777777777777777777 


Ow OUTPUT 

The 0 specification is used to output the internal representation in octal. 

Ow Ow.d 

w is an unsigned integer designating the total number of characters in the field. If w is less than 20, the 
rightmost digits are output. For example, if the contents of location P were output with the following 
statement the digit 3737 would be output. 

WRITE (6,1) p location P 00000000003737373737 

100 FORMAT (IX,04) 

If w is greater than 20, the 20 octal digits (20 octal digits = a 60- bit word) are right justified with blanks 
on the left. 

For example, if the contents of location P are output with the following statement 

WRITE (6,200) P 
200 FORMAT (IX,022) 

Output would appear as follows: 

bb00000000003737373737 b = blank 

A negative number is output in one’s complement internal form. 

If d is specified, the number is printed with leading zero suppression and with a minus sign for negative 
numbers. At least d digits will be printed. If the number cannot be output in w octal digits, all asterisks 
will fill the field. 
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Example: 


I - -ll 

WRITE (6,200) I 
Output would appear as follows: 

bb77777777777777777764 

The specification Ow produces a string of up to 20 octal digits. Two octal specifications must be used for variables 
whose type is complex or double precision. 

Zw INPUT and OUTPUT 

Hexadecimal values are converted under the Z specification. 

Zw 

..i 

w is an unsigned integer designating the total number of characters in the field. The input field may contain 
digits and the letters A through F. A maximum of 15 hexadecimal digits is allowed, blanks and a plus or 
minus sign may precede the first hexadecimal digit. On output if w is greater than 15, leading blanks will 
occur. 

Aw INPUT 

The A specification is used to input character data 
Aw 

w is an unsigned integer designating the total number of characters in the field. 

Character information is stored as 6-bit display code characters, 10 characters per 60-bit word. For example, the 
digit 4 when read under A specification is stored as a display code 37. If w is less than 10, the input quantity is 
stored left justified in the word; the remainder of the word is filled with blanks. 

Example: 

READ (5,100) A 
100 FORMAT (A7) 

Input record: 

^EXAMPLE 

When EXAMPLE is read it is stored left justified in the 10 character word 

1234567890 

teMAMptelElTTl 

If w is greater than 10, the rightmost 10 characters are stored and remaining characters are ignored. 
Example: 

READ (5,200)B 
200 FORMAT (A13) 
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Input record: 


13 


c 


'SPECIFICATION 
In storage: 

12345678910 


ldi|Fli|c|4r|iM 


READ (5,10) Q.P.R 
10 FORMAT (A10,A10,A5' 

Input record: 



12345678910 



Aw OUTPUT 

The A specification is used to output alphanumeric characters. 

Aw 

w is an unsigned integer designating the total number of characters in the field. If w is less than 10. 
the leftmost characters in the word are printed. For example, if the contents of location A in the Aw 
input example are output with the following statements: 

WRITE (6,300)A 
300 FORMAT (1X.A4) 

In storage: 



Characters EXAM are output 
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If w is greater than 10, the value is right justified in the output field with blanks on the left. For example, if 
A in the previous example is output with the following statements: 

WRITE (6,400)A 
400 FORMAT (1X.A12) 

Printed output appears as follows: 

bbEXAMPLEbbb b = blank 


Rw INPUT 

w is an unsigned integer designating the total number of characters in the field. The R specification is the 
same as the A specification with the following exception. If w is less than 10, the input characters are stored 
right justified, with binary zero fill on the left. 


Example: 

READ (5,600) HOO.RAY 
600 FORMAT (R10.R5) 


Input card: 



( 

In storage: 

HOO 


RAY 




b = blank 


Rw OUTPUT 
Rw 

w is an unsigned integer designating the total number of characters in the field. 

This specification is the same as the A specification with the following exception. If w is less than 10. the 
rightmost characters are output. For example, if RAY from the previous example is output with the 
following statements: 

WRITE (6,700) RAY 

700 FORMAT (1X.R3) Characters EST are output. 
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Lw INPUT 


The L specification is used to input logical variables. 

Lw 

w is an unsigned integer designating the total number of characters in the field. 

If the first non-blank character in the field is T, the logical value .TRUE, is stored in the corresponding list 
item which should be of type logical. If the first non-blank character is F, the value .FALSE, is stored. If the 
first non-blank character is not T or F, a diagnostic is printed. An all blank field has the value .FALSE. 


Lw OUTPUT 


Lw 


w is an unsigned integer designating the total number of characters in the field. 

Variables output under the L specification should be of type logical. A value of .TRUE, or .FALSE, in 
storage is output as a right justified T or F with blanks on the left. 


Example: 

LOGICAL I,J,K 
PRINT 5,1 , J ,K 
5 FORMAT (3L3) 


I contains -0 
J contains 0 
K contains -0 


Output: 


bTbbFbbT 


SCALE FACTORS 

The scale factor P is used to change the position of a decimal point of a real number when it is input or 
output. Scale factors may precede D, E, F and G format specifications. 

nPDw.d 

nPEw.d nPEw.dEe nPEw.dDe 

nPFw.d 

nPGw .d. 

nP 

n is the scale factor. It is a positive, optionally signed, or negative integer constant, w is an unsigned integer 
constant designating the total width of the field, d determines the number of digits to the right of the deci¬ 
mal point. 
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A scale factor of zero is established when each format control statement is first referenced; it holds for all 
F, E, G, and D field descriptors until another scale factor is encountered. 

Once a scale factor is specified, it holds for all D, E, F, and G specifications in that FORMAT statement 
until another scale factor is encountered. To nullify this effect for subsequent D, E, F, and G specifications, 
a zero scale factor, OP must precede a specification. 

Example: 


15 FORMAT(2PE14.3,F10.2,G16.2,0P4F13.2) 

The 2P scale factor applies to the El4.3 format specification and also to the F10.2 and G16.2 format 
specification. The OP scale factor restores normal scaling (10° = 1) for the subsequent specification 
4F13.2. 

A scaling factor may appear independently of a D, E, F or G specification. It holds for all subsequent D, E, 
F or G specifications within the same FORMAT statement,until changed by another scaling factor. 

Example: 

F0RMAT(3P,5X,E12.6,F10.3,0PD18.7,-lP,F5.2) 

E12.6 and F10.3 specifications are scaled by 10\ the D18.7 specification is not scaled, and the F5.2 
specification is scaled by 10"'. 

The specification (3P,3I9,Fl0.2) is the same as the specification (319,3PF 10.2). 


Fw.d SCALING 

INPUT 

The number in the input field is divided by 10 n and stored. For example, if the input quantity 314.1592 is 
read under the specification 2PF8.4, the internal number is 314.1592 X 10'^ = 3.141592. However, if an 
exponent is read the scale factor is ignored. 

OUTPUT 

The number in the output field is the internal number multiplied by 10". In the output representation, the 
decimal point is fixed; the number moves to the left or right, depending on whether the scale factor is plus 
or minus. For example, the internal number-3.1415926536 may be represented on output under scaled F 
specifications as follows: 


(-1PF13. 6) 
( F13. 6) 
( 1PF13. 6) 
( 3PF13. 6) 


-.314159 

-3.141593 

-31.415927 

3141.592654 
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Ew.D SCALING 


INPUT 

Ew.d scaling on input is the same as Fw.d scaling on input. 

OUTPUT 

The scale factor has the effect of shifting the output number left n places while reducing the exponent by n. 
Using -3.1415926536, the following are output representations corresponding to scaled E specifications: 


(-3PE20. 4) 
(-1PE20. 4) 
( E 2 0 . 4) 
( 1PE20. 4) 
( 3FE2C. 4) 


-.0003E+04 
-.0314E + 0 2 
-.3142E+C1 
-3.1416E+C0 
-314.16E-C2 


Gw.d SCALING 
INPUT 

Gw.d scaling on input is the same as Fw.d scaling on input. 


OUTPUT 


The effect of the scale factor is suspended unless the magnitude of the data to be converted is outside the 
range that permits the effective use of F conversion. Using first -3.1415926536 then -.00314159, the following 
are scaled G specifications: 


• • 

(- 

3PG20, 

6) 

-3.14159 

(-3PG20 . 

5> 

- • 2 C 2 314 E ♦ 2 j 

(- 

1PG20. 

f.) 

-3.14159 

(-1PG20. 

6) 

031416E-02 

( 

G20. 

6) 

-3.14159 

{ G20. 

6) 

-.314159E-03 

( 

IPG 2 0• 

6) 

-3.14159 

( 1FG2C. 

6) 

-3.141593E-C4 

( 

3PG20. 

b) 

-3.14159 

( 3PG2C. 

6) 

- 31 4.15 9 3 E - ' 6 

( 

5PG20. 

6) 

-3.14159 

( 5PG20. 

6) 

-31415.93F-03 





( 7PG20. 

6) 

-3. 14159 


X 

The X specification is used to skip characters in an input line or output line. On output, any character 
positions not previously filled during this record generation will be set to blank. It is not associated with a 
variable in the input/output list. 

nX Number of characters, n, to be skipped. An optional plus sign may precede n. 

OX is ignored, X is interpreted as IX. The comma following X in the specification list is optional. 

-nX Back up n characters, will not back up beyond the first column. 


MO-24 


60305600 D 









Example: 


WRITE (6,100) A,B,C 
100 FORMAT (F9.4,4X,F7.5,4X,I3) 

Output record: 

-342.743bbbbl.53190bbbbb22 
on input n columns are skipped. 

Example: 


A - -342.743 
B - 1.53190 
C = 22 


b is a blank 


READ 11,R,S , T 

11 FORMAT (F5.2, 3X, F5.2, 6X, F5.2) 
or 

11 FORMAT (F5.2, 3XF5.2, 6XF5.2) 

Input card: 

/14.62bb$13.78bC0STbl5.97 

In storage: 

R 14.62 
S 13.78 
T 15.97 

Example: 

INTEGER A A contains 7 

PRINT 10.A.B.C B contains 13.6 

10 FORMAT (I2,6X,F6.2,6X,E12.5) C contains 1462.37 

Result: 7bbbbbbbl3. 60bbbbbbb . 146237E+04 


nH OUTPUT 

The H specification is used to output strings of alphanumeric characters and like X. H is not associated with 
a variable in the input/output list. 
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n Number of characters in the string including blanks. 

H Denotes a Hollerith field. The comma following the H specification is optional. 

For example, the statement: 

WRITE (6,1) 

1 FORMAT (15HbENDb0FbPR0GRAM) 
can be used to output the following on the output listing. 

END OF PROGRAM 


Examples: 

Source program: 

PRINT 20 

20 FORMAT (28HbBLANKSbC0UNTbINbANbHbFIELD.) 

produces output record: 

BLANKSbCOUNTbINbANbHbFIELD. 


Source program: 

PRINT 30,A 

30 FORMAT (6HbLMAX=,F5.2) 
produces output record: 


A contains 1.5 


LMAX=bl.50 


nH INPUT 

The H specification can be used to read Hollerith characters into an existing H field within the FORMAT 
statement. 

Example: 

Source program: 

READ 10 

10 FORMAT (27Hbbbbbbbbbbbbbbbbbbbbbbbbbbb) 
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Input card: 


p'bTHIS IS A VARIABLE HEADING 

After READ, the FORMAT statement labeled 10 contains the alphanumeric information read from the 
input card: a subsequent reference to statement 10 in an output statement acts as follows: 

PRINT 10 

produces the print line: 

THIS IS A VARIABLE HEADING 



Character strings delimited by a pair of * or i= symbols can be used as alternate forms of the H specification 
for output. The paired symbols delineate the Hollerith field. This specification need not be separated from 
other specifications by commas. If the Hollerith field is empty, or invalidly delimited a fatal execution error 
occurs, and an error message is printed. 

An asterisk cannot be output using the specification * *. For example, 

PRINT 1 

1 FORMAT (*ABC*DE*) 

The second * in the FORMAT statement causes the specification to be interpreted as *ABC* and 
DE*, which is not valid. 

The H specification or^... # could be used to output this correctly: 

PRINT 1 

1 FORMAT (7H ABC*DE} 

Output appears as follows: ABC*DE 

PRINT 2 

2 FORMAT (* ABC’DE*) 

Output appears as follows: ABC *BE 

can be represented within ?*... ^ by two consecutive ^ symbols. 

Example: 

PRINT 3 

3 FORMAT (*= DONt^^T^) 
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Output examples: 

PRINT 10 

10 FORMAT (* SUBTOTALS*) 
produces the following output: 

SUBTOTALS 
WRITE (6,20) 

20 FORMAT ( **bRESULT OF CALCULATIONS IS AS FOLLOWS**) 

produces the following output: 

RESULT OF CALCULATIONS IS AS FOLLOWS 

PRINT 1, i*SQRT?*, SQRT(4. ) 

1 FORMAT (A10.E10.2) 

produces the following output: 

SQRT 2.0 

Note: ** is output as • on some printers. 

The *...* or #...# specification can be used to read alphanumeric data; however, the effect differs depending 
on whether *...* or #...# occurs in an actual FORMAT statement or in a format specification contained in a 
variable or array. When the READ statement contains a constant specifying a FORMAT statement, alphanu¬ 
meric characters are read into the *...* or specification. When a name occurs in the READ statement 
to specify the format information (variable format), characters in the input stream are skipped and no change 
is made in the or #...# specification. 

In FORMAT statements, the *...* or specification is changed to nH... at compile time. This conversion 
does not occur with variable format specifications. 
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FORTRAN RECORD / 


The slash indicates the end of a FORTRAN record anywhere in the FORMAT specification. Where a / is used, 
a comma is not required, but it is allowed, to separate field specification elements. Consecutive slashes may 
appear and need not be separated from other elements by commas. During output, the slash indicates the end 
of a record. During input, it specifies further data comes from the next record. 

Example: 


PRINT 10 

10 FORMAT (6X, 7HHEADING/// 3X , 5HINPUT, 8H OUTPUT) 

Printout: 


HEADING _ line 1 

_(blank)_line 2 

_(blank)_ line 3 

INPUT OUTPUT _ line 4 


Each line corresponds to a formatted record. The second and third records are blank and produce 
the line spacing illustrated. 

A repetition factor can be used to indicate multiple slashes. 
n(/) 

n Unsigned integer indicating the number of slashes required, n - 1 lines are skipped on 

output. 


Example: 


PRINT 15, (A(I),1=1,9) 

15 FORMAT (8HbRESULTS4(/),(3F8.2)) 

Format statement 15 is equivalent to: 

15 FORMAT (8HbRESULTS//// (3F8.2)) 

Printout: 


RESULTS _ line 1 

_ (blank)_ line 2 

_ (blank)_line 3 

- (blank)-line 4 

3.62 -4.03 -9.78 line 5 

-6.33 7.12 3.49 line 6 

6.21 -6.74 -1.18 line 7 
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Example: 


DIMENSION B(3) 
READ (5,100)IA, B 
100 FORMAT (I5/3E7.2) 


These statements read two records, the first containing an integer number, and the second containing 
three real numbers. 

PRINT 11,A,B,C,D 
11 FORMAT (2E10.2/2F7.3) 

In storage: 

A -11.6 
B .325 
C 46.327 
D -14.261 

Printout: 

b-.12E+02bbb.33E+00 
46.327-14.261 


PRINT 11,A,B,C,D 
11 FORMAT (2E10.2//2F7.3) 

Printout: 

-line 1 

(blank)-line 2 

-line 3 


b-.12E+02bbb.33E+00 


46.327-14.261 


I 
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REPEATED FORMAT SPECIFICATION 


FORMAT specifications may be repeated by preceding the control characters D, E, F, G, I, A, R, L, Z or 0 
by an unsigned integer giving the number of repetitions required. 

100 FORMAT ( 314,2E7.3 ) is equivalent to: 100 FORMAT (14,14,14,E7.3,E7.3) 

50 FORMAT (4G12.6 ) is equivalent to: 50 FORMAT (G12.6,G12.6,G12.6,G12.6) 

A group of specifications may be repeated by enclosing the group in parentheses and preceding it with the 
repetition factor. 

1 FORMAT (I3,2(E15.3,F6.1,214)) 

is equivalent to the following specification if the number of items in the input/output list do not 
exceed the format conversion codes: 

1 FORMAT (I3,E15.3,F6.1,I4,I4,E15.3,F6.1,I4,I4) 

A maximum of nine levels of parentheses is allowed in addition to the parentheses required by the FORMAT 
statement. 

If the number of items in the input/output list is less than the number of format codes in the FORMAT state¬ 
ment, excess FORMAT codes are ignored. 

If the number of items in the input/output list exceeds the number of format conversion codes, when the final 
right parenthesis in the FORMAT statement is reached, the line formed internally is output. The FORMAT 
control then scans to the left looking for a right parenthesis within the FORMAT statement. If none is found, 
the scan stops when it reaches the beginning of the FORMAT specification. If, however, a right parenthesis is 
found, the scan continues to the left until it reaches the field separator which precedes the left parenthesis 
pairing this right parenthesis. Output resumes with the FORMAT control moving right until either the output 
list is exhausted or the final right parenthesis of the FORMAT statement is encountered. 
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Example 


READ (5,300)I,J,E,K,F,L,M,G,N,R 
300 FORMAT (13,2(14,F7.3),17) 

is equivalent to storing data in I with format 13. J with 14. E with F7.3. K with 14. F with F7.3. L 
with 17. Then a new record is read; data is stored in M with the format 14. G with F7.3. N with 14 
and R with FT3. 

READ (5,100) NEXT, DAY, KAT, WAY, NAT, RAY, MAT 
100 FORMAT (17,(F12.7.I3)) 

NEXT is input with format 17. DAY is input with FI2.7. KAT is input with 13. The FORMAT 
statement is exhausted, (the right parenthesis has been reached) a new card is read, and the 
statement is rescanned from the group (F12.7.13). WAY is input with the format F12.7. NAT with 
13. and from a third card RAY with F12.7, MAT with 13. 


PRINTER CONTROL CHARACTER 

The first character of a printer output record is used for carriage control and is not printed. It appears in all 
other forms of output as data. 

The printer control characters are as follows: 


Character 

Action 

Blank 

Space vertically one line then print 

0 

Space vertically two lines then print 

1 

Eject to the first line of the next 
page before printing 

+ 

No advance before printing; allows 
overprinting 

Any other 
character 

Refer to the operating system 
reference manual 


For output directed to the card punch or any device other than the line printer, control characters are not 
required. If carriage control characters are transmitted to the card punch, they are punched in column one 

Carriage control characters can he generated by any means; however, the H specification is frequently used. 

Example: 


FORMAT (1H0.F7.3,12,G12.6) 

FORMAT (1H1,15,'RESULT = *,F8.4) 
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The *...* specification can be used: 

FORMAT (*1*,I4,2(F7.3)) 

The blank printer control character can be transmitted by the X specification. 

Example: 

FORMAT (1X,I4,G16.8) 

Carriage control characters are required at the beginning of every record to be printed, including new 
records introduced by means of a slash. 

Example: 


LIST OF ELIGIBLE CANDIDATES* > 
IAME,FNAME,MALE,PHD,SINGLE,AGE 
,3L5,12) 


PROGRAM LOGIC(INPUT,OUTPUT,TAPE5 =INPUT) 

LOGICAL MALE,PHD,SINGLE,ACCEPT 
INTEGER AGE 
PRINT 20 
20 FORMAT <*: 

3 READ l5 f lV 

1 FORMAT (2A1I 
IF (EOF(5))i 

4 ACCEPT = MALE >HHO. PHD .AND. SINGLE .AND. (AGE .GT. 25 .AND. 
S AGE .LT. 45)' 

IF (ACCEPT) PRINT ' .NAME,FNAME,AGE 

2 FORMAT (1H0,2A10,3 [2) 

GO TO 3 

> STOP 
END 



output starts on new page 


double spacing 


LIST OF ELIGIBLE CANDIDATES 


JOHN S. SLIGHT 
JUSTIN BROWN 


26 

30 
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Tn 

This specification is a column selection control. 

Tn 

n Unsigned integer. If n = zero, column 1 is assumed. 

| When Tn is used, control skips columns right or left until column n is reached; then the next format specifi¬ 
cation is processed. Using card input, if n > 80 the column pointer is moved to column n, but a succeeding 
specification would read only blanks. 

READ 40, A, B, C 

40 FORMAT (T1, F5.2, Til, F6.1, T21, F5.2) 

Input: 

84.73bbbbb2436.2bbbb89.14. 

A is set to 84.73, B to 2436.2, and C to 89.14. 

WRITE (31, 10) 

10 FORMAT (T20,'LABELS*) 

The first 19 characters of the output record are skipped and the next six characters, LABELS, are 
written on output unit number 31 beginning in character position 20. 

With T specification, the order of a list need not be the same as the printed page or card input, and the 
same information can be read more than once. 

I When a T specification causes control to pass over character positions on output, positions not previously 
filled during this record generation are set to blanks; those already filled are left unchanged. 
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Example: 

5 7 


60 

10 


PROGRAM TEST (OUTPUT) 

FORMAT (12(10H0123456789)) 

PRINT 1 
PRINT 60 

FORMAT (T80**COMHENTS*,T60,*HEA0ING4*,T40t 

*HEADING3*,T20,*HEAOING2*,T2,*HEAOING1*) 

FRINT 10 

FORMAT (20X*THIS IS THE ENO OF THIS RUN*T52*•••HONEST*) 
FRINT 1 


BTCF 

(END 


NCAOIHC1 MMOINtt HltttMl MROIMC* COHINTJ 

twit is r« rue or this run ...monist 


Since the first character in a line output to the printer is used for printer control, T2 is output in the first 
print position. 


The following example shows that it is possible to destroy a previously formed field inadvertently. The 
specification T5 destroys part of the Hollerith specification 10H DISASTERS. 

1 FORMAT (10H DISASTERS,T5,3H123 ) 

PRINT 1 

produces the following output: 

DIS123ERS 

V 

The specification can be used for any of the elements: A, D, E, F, G, I, L, 0, P, R, T, X, or Z. When V 
is encountered, the rightmost 6 bits from the next variable in,the I/O list are picked-up to be used as a 6-bit 
display character in place of the V. The character must be any of the elements listed above. V cannot be 
used in Ew.dVe for the D or E. 


This character may be used whenever a number could be used. The next list item is used as a signed integer 
value for the format. The use of = in a FORMAT statement prohibits compilation syntax checking of the 
FORMAT statement. 
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EXECUTION TIME FORMAT STATEMENTS 


Variable FORMAT statements can be read in as part of the data at execution time and used by READ, 
WRITE. PRINT. PUNCH. ENCODE, or DECODE statements later in the program. The format is read in 
as alphanumeric text under the A specification and stored in an array or a simple variable, or it may be 
included in a DATA statement. The format must consist of a list of format specifications enclosed in 
parentheses, but without the word FORMAT or the statement label. 

For example, a data card could consist of the characters: 

^(E7.2,G20.5,F7.4,I3) 

The name of the array containing the specifications is used in place of the FORMAT statement number in 
the associated input/output statement. The array name, which appears with or without subscripts, specifies 
the location or the first word of the FORMAT information. 

For example, assume the following FORMAT specifications: 

(E12.2,F8.2,I7,2E20.3,F9.3,I4) 

This information on an input card can be read by the statements of the program such as: 

DIMENSION IVAR(3) 

READ 1, IVAR 
1 FORMAT (3A10) 

The elements of the input card are placed in storage as follows: 

IVAR(l) (E12.2.F8. 

IVAR(2) 2,17,2E20. 

IVAR(3 ) 3,F9.3,14) 

A subsequent output statement in the same program can refer to these FORMAT specifications as: 

PRINT IVAR,A, B, I, C, D, E, J 

Produces exactly the same result as the program. 

PRINT 10, A, B, I, C, D, E, J 
10 FORMAT (E12.2,F8.2,17.2E20.3,F9.3,14 ) 
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FORTRAN CONTROL CARD 


11 


The FORTRAN Extended compiler is called from the library and executed by an FTN control card. The FTN 
control card calls the compiler, specifies the files to be used for input and output, and indicates the type of 
output to be produced. This control card may be in any of the following forms: 


1 


/F|TN (p 1( p 2 ,. 
1 

..,p n ) comments 

1 

1 

1 


/VJTN. comments 

1 


1 

1 



FjTN, ,...,p n . comments 
I 
i 


Example: 

FTN (A,LRN,G,S=0) 

The optional parameters, pj,...p n may be in any order within the parentheses. All parameters, with the exception 
of the list control options, must be separated by commas. If no parameters are specified, FTN is followed by a 
period or right parenthesis. If a parameter list is specified, it must conform to the control statement syntax 
for job control statements as defined in the operating system reference manual; with the added restriction 
that the only valid parameter delimiter is the comma. Card columns following the right parenthesis, or period 
can be used for comments; they are ignored by the compiler, but are printed on the dayfile. 

tPp- rP n ) 

Default values are used for omitted parameters. Default values are set when the system is installed; but since 
installations can change default values, the user should consult his installation for possible changes. 

In the following description of the FTN control card parameter, lfn is a file name of 1-7 letters or digits. 

The first must be a letter. 

An improperly formed parameter will terminate the FTN control card scan. When an error is detected, a day- 
file entry is made. A ten-character segment of the control card is printed with an asterisk positioned beneath 
the approximate column in which the error occurred. 


* POINTS TO FTN CONTROL CARD ERROR 
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Example: 

Dayfile 

22.14.11 FTN(I=TEST,PL=ABC,L-LIST) 

22.14.12 (T,PL=ABC,L) 

22.14.12 * 

22.14.13 * POINTS TO FTN CONTROL CARD ERROR 

The job proceeds with the option already processed or terminates and branches to an EXIT(S) card, 
depending upon the installation option. 

| A EXIT PARAMETER (Default: job continues at next control card) 

A Compilation terminates and branches to an EXIT(S) control card if fatal errors 

occur during compilation. If there is no EXIT(S) control card, the job terminates. 


B BINARY OBJECT FILE (Default: B = LGO) 

B Generated binary object code is output on file LGO. 

B = lfn Generated binary object code is output on file Ifn. 

B = 0 No binary object file is produced. 

BG = lfn Binary object file is loaded and executed at end of compilation. 

| C COMPASS ASSEMBLY (Default: FTN internal assembler) 

C Selects the COMPASS assembler to assemble the symbolic object code generated 

by FTN. If C is omitted, the FTN assembler is used; it is two to three times 
faster than the COMPASS assembler. When the C parameter is specified, FTNMAC 
is selected as text for the COMPASS assembly. Therefore, if the C option is 
selected, the maximum number of system texts which can be specified with 
the GT and S parameters is six. 
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D DEBUGGING MODE PARAMETER 

D or D = lfn 

If the debug facility described in section 1-13 is used, D or D = lfn must be specified. This parameter auto¬ 
matically selects fast compilation (OPT = 0) and full error traceback (T option). When the debug parameter 
is selected, any OPT= parameter is ignored. This also will select the COMPASS D option for assembly of 
interspersed COMPASS code. 

lfn is the name of the file on which the user debug deck resides (figure 134, section 1-13). The default option 
for D = lfn is D = INPUT. 

FTN(D) is equivalent to FTN(D = INPUT,OPT = 0,T) 

E EDITING PARAMETER (Default: E = COMPS) 

E or E = lfn 

Compiler generated object code is output as COMPASS card images. If E is omitted, normal binary object 
file is produced. If no file name is specified, COMPS is assumed. The B, C, G, 0, and Q options must not be | 
specified if the E option is selected. 

The object code output file starts with the card image *DECK,name. (name is the name of a program unit.) 

The object code output file lfn or COMPS is rewound. No binary file is produced. COMPASS is not called 
automatically. When the COMPS file is assembled S = FTNMAC must be specified on the COMPASS control 
card. 

EL ERROR LEVEL (Default: EL = I) 

List warning diagnostics for all non-ANSI usages, informative diagnostics, and fatal 
diagnostics. 

List informative and fatal diagnostics only, 
list fatal diagnostics only. 

EXECUTION (LOAD AND GO) (Default: GO = 0) 

Binary object file is loaded and executed at end of compilation. 

Binary object file is not loaded and executed. 
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EL = A 

EL = I 
EL = F 

GO AUTOMATIC 

G = lfn \ 
GB = lfn ( 

G ( 

GO ) 

GO = 0 
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GT GET SYSTEM TEXT FILE 


(Default: GT = 0) 


GT = lfn Loads the first system text overlay, if any, from the sequential binary file, lfn. 

GT = lfn/ Searches the sequential binary file, lfn, for a system text overlay with name 

ovlname ovlname, and loads the first such overlay encountered. 

GT = 0 or No system text is loaded from a sequential binary file, 
omitted 

A maximum of seven system texts can be specified. (Any combination of the GT, S, and C parameters must 
not specify more than seven system texts.) , 

This feature is for COMPASS subprograms only. 

I SOURCE INPUT FILE (Default: I = INPUT) 

I — lfn lfn is the name of the file containing the source input. If I=INPUT is specified, source 

input is on the file INPUT. If I only is specified, source input is on the file COMPILE. 
If source input is on a file other than INPUT, the I==lfn form must be used. Compilation 
stops when an end-of-record or end-of-file is encountered. 

L LIST OUTPUT FILE (Default: L = OUTPUT, R=l) 

y = lfn 

The list control options specify the type of listing of the source program,y, and the file name, lfn, on which 
list output is to be written. If no list control options are specified, a listing is produced of the source 
program with informative and fatal diagnostics. If no file name is specified, OUTPUT is assumed. 

y is any combination of one to four list control options selected from the letters: L,O.R,X,N. The letters 
must not be separated by commas. X and N cannot be specified at the same time. 

lfn is the file on which output is to be written. 


L = lfn 

Source program, diagnostics, and short reference map listed on file lfn. 

L 

L defaults to L = OUTPUT 

L = 0 or LR = 0 

Fatal diagnostics and the statements which caused them are listed. All other 

output, including intermixed COMPASS, is suppressed. 

L = 0, R = n 

Fatal diagnostics and the statements which caused them are listed and an R = n 

reference map is produced. 
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0 = ]fn 


Generated object code is listed. The 0 option must not be used if the E option 
is selected. 


R = lfn 


X-lfn 


An R = 2 type reference map is listed. R is included in the list control options 
for compatibility reasons only. Refer to R option in this section, and section 
III-l for full description of reference map. 

A warning diagnostic is given for any non-ANSI usage. For example, if this 
option is selected and a 7- character symbolic name is used, (legal in 
FORTRAN Extended, but not defined under ANSI) the following warning 
diagnostic is printed: 

7 CHARACTER SYMBOLIC NAME IS NON-ANSI 


N = lfn 


Listing of informative diagnostics is suppressed; only diagnostics fatal to 
execution are listed. 


For example, LRON = lfn selects the following, and all information is listed on the file named lfn. 


List source program 
list fatal diagnostics 
List R = 2 reference map 


list generated object code 
Omit informative diagnostics 


LCM LEVEL 2 AND LEVEL 3 STORAGE ACCESS 


(Default: LCM = D) 


LCM = D 


LCM = I 


Selects 17-bit address mode for level 2§ or 3 data. This method produces more 
efficient code for accessing data assigned to level 2§ or 3. User LCM or ECS field 
length must not exceed 131,071 words. 

Selects 21-bit address mode for level 2§ or 3 data. This mode depends heavily 
upon indirect addressing. LCM = I must be specified if the user LCM or ECS field 
length exceeds 131,071 words. 


OL OBJECT LIST 


(Default: OL = 0) 


OL = 0 


Generated object code is listed on the file specified by the L option. 
Object code is not listed. 


OPT OPTIMIZATION PARAMETER 


OPT = m 


m = 0 


(Default: OPT = l) 

Fast compilation (automatically selects T option) 


m = 1 


Standard compilation and execution 


m = 2 


Fast execution 


§ Applies only CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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P PAGINATION 


omitted 


Page numbering is continuous from subprogram to subprogram, including inter¬ 
mixed COMPASS. 

Page numbers begin at 1 for each subprogram. 


PL PRINT LIMIT 

PL = n 


PL = nB 


(Default:n = 5000) 

n is the maximum number of records produced by the user program at 
execution time which can be written on the OUTPUT file, n does not include 
the number of records in the source program listing, and compilation and 
execution time listings; n < 999 999 999 

An octal number must be suffixed with a B; n < 777 777 777B 

Print limit option is effective only when a FORTRAN main program is compiled; 
but the print limit may be altered at execution time as an added parameter on 
the EXECUTE or load-and-execute control card. 


Examples: 


EXECUTE (-, PL = 1000) 

LGO (PL = 2000) 


The PL parameter may appear anywhere in the parameter list of the execution 
control card; it is not counted as a file name for file equivalencing purposes. 


Q PROGRAM VERIFICATION 

Compiler performs full syntactic and semantic scan of the program and prints all diagnostics, but no object 
code is produced. A complete reference map is produced (with the exception of code addresses). This mode 
is substantially faster than a normal compilation; but it should not be selected if the program is to be 
executed. If Q is omitted, normal compilation takes place. 


R SYMBOLIC REFERENCE MAP 


(Default: R = 1) 


R = n 
R = 0 
R= 1 
R = 2 

R = 3 


Selects the kind of reference map required (section III-l-l). 

No map 

Short map (symbols, addresses, properties) 

Long map (symbols, addresses, properties, references by line number and a 
DO-loop map) 

Long map with printout of common block members and equivalence groups 
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ROUNDED ARITHMETIC OPTIONS (Default: arithmetic not rounded) 

ROUND = op op is an arithmetic operator: + - * / Single precision (real and complex) 

floating point arithmetic operations are performed using the hardware 
rounding features (refer to 6000 series and 7600 Computer Systems Reference 
Manuals). Any combination of the arithmetic operators can be specified. For 
example: ROUND = +-/ 

If this parameter is omitted (default condition), computations for the operators + - * / are not rounded. 
The ROUND option controls only the in-line object code compiled for arithmetic expressions; it has no effect 
on the computations of the library subprograms or the I/O routines. 

S SYSTEM TEXT FILE (Default: S = SYSTEXT) 

omitted If the only GT parameter is GT=0, the overlay named SYSTEXT is loaded from the 

job’s current library set. 

S = 0 When COMPASS is called to assemble any intermixed COMPASS programs, 

it will not read in a system text file. 

S = ovlname The system text overlay, ovlname, is loaded from the job’s current library set. 

S = libname/ 

ovlname The system text overlay, ovlname, is loaded from the library, libname. Libname 

can be a user library file or a system library. Valid only if the host operating 
system supports partitioned library sets. 

This feature is for COMPASS subprograms only. 

SL SOURCE LIST (Default: SL) 

SL Source program is listed on the file specified by the L option. 

SL = 0 Source program is not listed. 

SYSEDIT SYSTEM EDITING (Default: SYSED1T not selected) 

This option is used mainly for system resident programs. 

SYSEDIT All input/output references are accomplished indirectly through a table search 

at object time. File names are not entry points in main program, and 
subprograms do not produce external references to the file name. 
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T ERROR TRACEBACK 


This option is provided to assist in debugging programs. 

T Calls to intrinsic and basic external functions are made with call-by-name sequence 

(section 10, part III). Full error traceback occurs if an error is detected. 

T omitted The more efficient call-by-value sequence is generated. No traceback is provided if 

an error is detected. A saving in memory space and execution time is realized. 

Selecting the D parameter or OPT = 0 automatically selects T. 

V SMALL BUFFERS OPTION 

V The V option has no application in FTN 4.2. If specified on the control card, 

it is ignored, and no diagnostic is issued. 

XT EXTERNAL TEXT NAME 

XT Source of external text (XTEXT) when location field of XTEXT pseudo instruc¬ 

tion is blank. Only one XT parameter may be specified. This feature is for 
COMPASS subprograms only. 

omitted External text OLDPL file. 

XT = lfn External text on file Ifn. 

XT External text on OPL file. 

Z ZERO PARAMETER 

Z When Z is specified, all subroutine calls with no parameters are forced to pass a 

parameter list consisting of a zero word. This feature is useful to subroutines ex¬ 
pecting a variable number of parameters. For example, CALL DUMP dumps storage 
on the OUTPUT file and terminates program execution. If no parameters are speci¬ 
fied and Z is selected, a zero word parameter is passed. Z should not be specified 
unless necessary, as programs execute more efficiently if Z is omitted. 
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FTN CONTROL CARD SAMPLES 

Example: 

FTN (A,EL=F,GO.L=SEE,R=2,S=0,SL=0> 

Seclects the following options: 

A Branch to EXIT(S) card if compilation errors occur. 

EL=F Fatal diagnostics only are listed. 

GO Generated binary object file is loaded and executed at end of successful compilation. 

L=SEE listed output appears on file SEE. 

R=2 Long reference map is listed. 

S=0 When COMPASS is called to assemble an intermixed COMPASS subprogram, it will not 

read in a systems text file. 

SL=0 Source program is not listed. 

Example: 

FTN (GO,T) 

Source program on INPUT file; object code on LGO; source program, short map, informative and fatal 
diagnostics listed on file OUTPUT; call-by-name sequence generated for calls to intrinsic and basic external 
functions; no debug package; standard compile mode; and unrounded arithmetic. Program is executed if no 
fatal errors occur. 

Example: 

FTN. 

Selects the following options (unless default option values are changed by the installation): 


B=LGO 

LCM=D 

PL=5000 

EL=I 

OL=0 

R=1 

GO 

OPT=l 

S=SYSTEXT 

I=INPUT 

P 

SL 

L=OUTPUT 
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Example 


load X 


load ,5 


X/.5+Y 
result to 
register 
holding | 


store 
into A(D 


end of 
loop test 


store X 




—------—r- 

Loop 

Without register assignment 



-- 

X-1.0 

tj| 

S’ 'N. 

DO 2001=1,100 

PUP 

1 x=1 ° J 

X * X/.5+Y 


x. s' 

Ail) ** X 

20QCQNTINUE 

% 

_ / top of 1 

■ - '■> ■■ .... ^ . . 

;§y ■ - 

\ loop J 


' 

■ 

'X 

i 



.- ; 

- - 

. ' . • 

- 

■ i ** ■ 

: lV~ 

( ,oadX ) 

ss 

, . I/ '- . ' ;• , 

® : ' ; .1 ' 


f load Y 1 

■ V 





/^?N\ 


& 

f X/.5+Y V 






f store y 



V intp X J 






( store N 


■ 

1 into A<l) J 


■ : [ S ■?, 

f end of \ 

- 


l loop test J 
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Example: 



. . ;; : v ^ . ' V 

Branch to EXIT(S) card if compilation errors occur 

' . '■■ ■ : f v . ■ ,;7 ■ *■■■• ' • >V : ■' 

Source progr: 

Generated bii 

When tOMPA$S is catteClo tumble 
not read in a systems text file. 


compilation, 


is executed 


COMP, 


Example: 


ting on OUTPUT 
grounded arithme 


Selects the 


ttute,?) 

Source program on INPUT file, object code on LGO, nor: 
error checking, nb debug package, start 
executed if no fatal errors pccur. 


FTN. IS i 
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ST?;' 


Zero overlay (0,0) 


Fixed starting 
address for 
primary overlays 


Primary overlay (1,0) 


Fixed starting 
address for (1,n) 
secondary overlays 


Secondary overlay (1,1) 


The zero Or main overlay is loaded first and remains in core at at) times. A primary overlay may be loaded 
immediately following the zero overlay, and a secondary overlay immediately following the primary 
overlay. Overlays may be replaced by other overlays. For example, if a different, secondary overlay is 
required, the overlay loader simply reads it from the overlay file and places it in memory at the same 
starting address as the previously loaded overlay. 
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Fixed starting address 


for primarv overlay 


overlay <4,01 


Primary 

overlay 

(3,0) 


Starting address for 
secondary overlay 
(4,2) - 

Fixed starting address 


Secondary 

overlay 

(3,1) 


for secondary overlay 


When a primary overlay is loaded, the previously loaded primary overlay and any of associated 
secondary overlays are destroyed. Loading a secondary overlay destroys a previously ioade^««nt<^ry 
overlay. Loading any primary overlap destroys aw oiher prin^ry: ©ytnlay. for tl^%^son,^> primary 
; q$0iy aiay load other primary 


Overlays are identified by a pair of integers: 

< % 

fcero or main, overlay #,0) } ’ 


primary overlay (n,0) 


mam 
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OVERLAY LINKAGES 


The loader generates overlays and places th§Bt on a mass storage device or tape file in their absolute form. 
Linkage within an overlay is established during generation. The FORTRAN CALL statement (section 1-7) in 
a secondary overlay may call a subprogram within itself, or in its associated primary overlay, or in the zero 
overlay. Similarly, CALL statements in a primary overlay may call only subprograms within itself or in the 
zero overlay. Subprograms in the zero overlay may call only subprograms within the zero overlay. In order 
to call a primary or secondary overlay from a zero overlay, a CALL OVERLAY statement must be used. 


. ... Y-rj .:-:■■■<■ - • • . -.W - . . .. .. 

An overlay may consist of one or more FORTRAN or COMPASS programs. The first program in the 
overlay must be a FORTRAN main program (not a subprogram). Ttte program name becomes the primary 

entry point for the overlay when the jailed. / 1 

Data is passed between overlays through labeled or blank common. Any element of a labeled or blank 
common block in the main overlay (0,0) may be referenced by any higher level overlay. Any labeled or 
blank common declared in a primary overlay may be referenced only by the primary overlay and its 
associated secondary overlays-not by the zero overlay If blank common is used for communicating 
between overlays, the user must ensure that sufficient field length is reserved to accommodate the largest 
loaded overlay in addition to blank common. Data stored in blank common must be used by each level of 
the overlay in exactly the same format, sirtce no linkage is provided between the different levels of overlay 
and blank common at execution or load tirifwe. 






Blank common is located at the top (highest address) of the first overlay in which blank common is 
declared. For example, if blank common is declared in the (0,0) overlay, it is located at the top of the (0,0) 
overlay and is accessible to all higher level overlays. If blank common is declared in the (1,0) overlay, it is 
allocated at the top of the (1,0) overlay stad is accessible only to the associated (l,k) overlays. Labeled 
common blocks are generated in the overlay in which they are first encountered: data may only be preset in 
labeled common blocks in this overlay. ^.. r : 

§LCM common blocks must be defined arid preset in the main (0,0) overlay. The entire overlay structure can 
reference an LCM common block. 


■ 




CREATING AN OVERLAY 

An overlay is established by an OVERLAY directive preceding the main program card for that overlay. An 
overlay consists of all programs appearing between its 0VEKLAY directive and the next OVERLAY 
directive or an end-of-file (6/7/879) card. The directive must be punched starting in column 7 or later and 
must be contained wholly on one card. 

■' '■ '.r'- 'f: ■ ■ 



: 


* 

%gf3 
mk 


I I : 

'* k ■ 


* - • 


.. V ;i--A 


§ Applies only to 
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/! 

OVERLAY (fname,i,j,Cn) 

1 ! 



file name File name on which ttie generated overlay is to be written. All overlays need 

not reside on the same file. 

i Primary number, octal. 

j Secondary number, octal, (i and ] must be 0,0 for the first overlay card.) 

Cn Optional parameter consisting of the fetter C and a 6-digit octal number, 

which indicates the overlay is to be loaded n words from the start of blank 
common. Blank common is loaded after the zero overlay. With this method, 
the programmer can change the size of blank common at execution time. Cn 
cannot be included op the (0,0) overlay control card. If this parameter is 
omitted, the overlay is loaded in the normal way. 

The first overlay directive must have a fife name, subiequeht directives may omit it, indicating that the 
overlays are related and are to be written <yt the Same fife. 


Example: 


OVERLAY*PNAHE,0,0) 




i r, 


:-fv^ 


PROGRAM CAT(INPUT,OUTPUT*TAPE6-INFUT) 


OVERLAY(1,0) 
PROGRAM A 


OVERLAY(l.l) 
PROGRAM B 


OVERLAY(1,2) 
PROGRAM C 


-V £v-V 

f- V.. “ ■ ,4 
’ ‘it.5 


•* ■; ' * • ; : 
v> : ,. A .. ,i * jV-tv 

.Wrr- X ' 



■ .i\ i .yk j|- - 

^ . ' ;> V ! .V. 

■$&>■■■ '• 

v.r;-: ■/;: fat ; 

" V -'i,. • 

' tf& 'l '\Z ~ 

* l ■ 


OVERLAY(1,3) 
PROGRAM V 




.>• . 

.. * V . * ' 




All the above overlays are written on the fife ENAME. 


1-12-4 


60305600 B 



Each OVERLAY directive must be followed by a PROGRAM statement. The PROGRAM statement for 
the zero or main overlay (0,0) must specify all file names such as INPUT, OUTPUT, TAPE1, etc., required 
for ail overlay levels. File names should hot appear in PROGRAM statements for pjfeff than the (0,0) 
OVERLAY. • *' ' W: ’ 


Loading overlays from a file requires an end-around search of the file for the specified overlay;, this can be 
time consuming in large files. When speed is essential, each overlay should be written on a separate file, or 
it should be called in the same order in which it was generated. 

The group of relocatable decks processed by the loader must be presented to the loader in the following 
order. The main overlay must be loaded first. Any primary group followed by its associated secondary 
group can follow, then any other primary group foHw&ed by its associated secondary group, and so forth. 


GLUING AN OVERLAY 


,lL OVERLAY 


foame - frame is the varla% location containing the name ttPfre file (H 

format left justified display code) which includes the overlay if the k 
. , parameter is zero or is not specified. If 4 non-zero k parameter is specified, 

fname is the variable n|B?e^of the location ^ilithiniflg the overlay Ntetfkdeft. 

. ' 

1 

recall Recall parameter. If 6HRECALL is specified, the overlay is not reloaded if it 

is already in memory. If the overlay is already in memory and the recall 
parameter is not used, the overlay is actual# reloaded, thus changing the value 
of variables in the overlay. 

k k can be either in fc format Hollerith constant pf 7 characters, otafiy non-zero 

value. If k is a 7L... Hollerith constant, the.overlay is loaded frhm the library 
named 7L... If k is any other non-zero value, the overlay is loaded from the 
global library set (refer to the operating system or Loader Reference Manual). 

For example, the following statement causes a primary overlay to be loaded from the file named A: 


CALL OVERLAY(1HA.1,0) 
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'wmwm 


, - 

-K” «i-i 


as a non-zero value causes a main overlay, with 


The following statement which specifies the 
the name BJR, to be loaded from the 

CALL OVERLAY(3BBJR,0,0,0,*) : jf 


OVERLAY (SA^, 1,11) the statement CALL 
iAM, 1,11 B,0) must be used. 

if any is omfttett, a MODE error could result at 


Numbers in the OVERLAY card are 
OVERLAY (3HSAM, 1,9,0) or CALL 


The three parameters, fname, i, and j mi 
execution time. 


an overlay, control returns to the 


| When a RETURN or END statement is 
statement following die CALL OVERU 


Example 


TLE.0,0) 

EflRPUT, 


OVERLAY 

PROGRAM 


CALL O' 







«< r- ■ 
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RLAY 


OVERLAY (JIM,1,0) 
PROGRAM ROY 


CALL OVERLAY (4HJ0HH,1,L»0 
END ' 
OVERLAY (JOHN,1,1) 

PROGRAM MLT 


Example: . - t 

: , • • ■ ft;.' •* 

The following program, which contains several subroi 

entire program can be generated, therefore, as a m*i 
form. The control card CATALOG creates (bifeMM 


The above example illustrates the preparation of zero, primary and secondary overlays. The zero 
overlay, FRANK.0,0, consists of a mainjpeogram LEG aRpU NftMutrae GROUCH. ’Ifcp pri%ary 
overlay FRANK 1,0 consists of a maiaJmjMB'MLT All three 

the file FRANK. > ' . 

The LOAD(LGO) card requests the loader to load the program from the file LGO. As 
file LGO, it encounters the overlay <&ec^gfeLAY <FRANK$0> instructs 
main overlay from the program and write SLOP file FRANK. When 
lays has been generated, execution begins when the <&$&! card F8 
the main overlay to be loaded from file FRANK and mtecdbd. ^ 


During execution of the main overlay, the CALL OVERLAY (5HFKAN 
encountered and the primary overlay 1,0 is loaded into central memory. The _ 
(5HFRANK.1.1) statement in the primary overlay causes the secondary Overlay 1 
memory. . \ j ’ 

The primary and secondary overlays cam reside on & FRANK, 

primary overlay could be on file JIM and JOHN. 

FTN. 

LGO. 

FRANK. 

7/8/9 

OVERLAY (FRANK,0,0) 

PROGRAM LEO (INPUT,OUTPUT, 


CALL 0VIRLAY(5H JIM, 1,0,0 
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program will be kept. When the program is required again, the permanent file OVRLY is called by an 
ATTACH control card. 


The first program must be a main program; in this case program A. 


Control 

Cards 


Main 

Overlay 



FTN. 

LOAD(LGO) 

NOGO. 

CATALOG (REPEAT,OVRLY,ID=IBB) 
7/8/9 

OVERLAY (REPEAT,0,0) 

PROGRAM A (INPUT,OUTPUT,TAPE1) 


END 

SUBROUTINE B 


END 

FUNCTION C 


END 

SUBROUTINE D 


END 

REAL FUNCTION E 


END 

7/8/9 

data 

B/7/8/9 


Main program A and the subroutines and functions B-E reside on the file REPEAT in absolute form. 
They can be called and executed without recompilation by the control cards: 

job card 

ATTACH ( REPEAT,OVRLY,ID = IBB) 

REPEAT. 

6/7/8/9 

The operating system or Loader Reference Manual gives full details of the control cards which appear in the 
above program. 
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K 



■ r , *■ ■ *,. '■ m 




. , vmm l < r i * ~ 4. 

I^}0. i 1 ' 5 •* * 

% REWIND(DEBUG) 

copscf(djedg»output) 4 V . 

1111(8) f Abnormal termination 4 

REWIND(DEBUG) J& ’ 

COPTCI*DEBUG,OU**Uf) , 

: . ,3Cv *' ~ 4' / 4 ■' - 

•r • , 5 S? • • • * . 'iWi 

When the debug mode is selected, programs execute tega: 

however, terminate at that point in the program whore a fats 

will be printed: :4 

NATAL ERROR ENCOUNTERED DURIRW W»«RA« E«$?& 
DUE TO eCWPILATDOH ERROR 


Partial execution is prohibited for only three classes of errors, 
Errors in specification statements ^ “v 


Mining F(|RJ^AT*tAtement iWmbmi’vB ;4 • 4||4 

* •» s "%1'i * • 44 > 

Partial execution of programs con taming fatal errors allows the p 

in hb j^gram to assist hfcjf in locating fatal eod mm-fatal erroa 

When a program is compiled in debug mode* at least 12000 (t 
minimum field length for normal compilation. To execute, at leas 
wotitd be fcquired.The CfU ™ 

compilation. ^ ^ ^ - ^ 


octal) words Will be required 

it 2500 (octal) words gAii n 0 tlnrininimum 

imhe^^dian^;no« O^f: 


are treated as comments 
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All debugging options are activated and deactivated at compile time only. This compile time processing is 





not to be confused with program flow at execution time. 

PROGRAM TEST (OUTPUT,DEBUG-GUTPUT) 


C$ (DEBUGGING OPTION) 
C$ (DEBUGGING OPTION) 




4 CONTINUE 


Even though a sectioh hf code may never be executed, the debugging options are processed at compile time 
and are effective for the remainder of the program. In the above example, the code between the GO TO 
statement and the CONTINUE statement jmay never be executed However, debugging statements between 
these statements are processed at compile time airf are effective for the remaitrddr bf the program, of until 


DEBUGGING ST. 


Type of option, beginning after column 6: DEjSUG, AREA, ARRAYS, CALLS, 
FUNCS, GOTOS, NOG0, OFF, STORES, TRACE* 

Argument list; details extent of the option, ds (not used with NOG0, GOTOS; required 
for AREA, STORES; Optional for other options) 



60305600 B 


1-13-3 



CONTINUATION CARD 



Debugging statements are written in columns 7-72, as in a normal FORTRAN statement, but columns l 
and 2 of each statement must contain the characters C$ ¥ Any character, other than a blank or zero, in 
column 6 denotes a continuation line. Columns 3, 4, and 5 of any debugging statement must be blank. The 
restriction on the number of continuation lines is the same as for FORTRAN continuation lines. 

Comment cards may be interspersed with debugging statements. The statement separator ($) cannot be used 
with debugging statements. When the debug mode is not selected, all debugging statements are treated as 
comments. 

' v.'. - ■. - .■ ■ >’ ' ’ •' 5 ' 

Example: ■“ 0 ’»• 



The ARRAYS statement initiates subscript checking on specified arrays. If no argument list is specified, all arrays in 
the program unit are checked. Each time a specified or implied element of an array is referenced, the calculated 
subscript is checked against the dimensioned bounds, The address is calculated according to the method described in 
figure 2-1, section 2. Subscripts are not checked individually. If the addins is found to be greater than the storage 
allocated for the array or less than one* a diagnostic is issued. The reference then is allowed to occur. Bounds check¬ 
ing is not performed for array references in input/output statements, or fir ENCODE/DECODE statements. 
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PROGRAM ARRAYS (OUTPUT.OEBUGaOUTPUT) 

INTEGER A(2)'* BI4). C<6>, 012.3,4) 

PRINT 1 

1 FORMAT (*0 ARRAYS EXAMPLE*//-/) 

* TURN ON ARRAYS FOR ARRAYS A AND D 

* V * * 

CS ARRAYS (A* D) . ■. t r-« , 

* A(3) IS OUT OF BOUNDS AND ARRAYS IS ON FOR A* SO A DIAGNOSTIC 

* IS PRINTED, 

* . 

A (3) * I 

* B (5) IS OUT OF BOUNDS BUT .ARRAYS IS NO| ON TOR B» SO NO 

* DIAGNOSTIC IS. Plfarljk, 

ft ... /■ ' i - s } ■'* . %. ■ 

■ • ■ n l ' ■ •- „ 

B<5) * 1 ■ % 

* < ’ , 

C(2) * A(A(3>) 

* EVEN THOUGH A(3) WAS OUT OF BOUNDS. THE ASSIGNMENT TOOK PLACE. 

* A (A (3)) IS EQUIVALENT TO All). THIS SUBSCRIPT IS IN BOUNDS. 
HOWEVER THE REFERENCE TO A(3).WILL CAUSE A DIAGNOSTIC. 

D(-5.0.6) * 99 * ^ ' 

» ■ ; ; .« ■■ . ^ ' * ' ■ 

* FOR THE ARRAY Dll.M.Nl ^STORAGE ALLOCATED IS L f f T ^ 

* THE ADDRESS OF THE ELEMENT 01J.J.K) IS COMPUTED AS FOLLOWS 

* u ♦ os - m> 

* FOR THE ELEMENT 0(J“S»0.6) THE SUBSCRIPT APPREARS TO 

* , BE OUT OF BOUNDS BECAOSE THE INDIVIDUAL SUBSCRIPTS ARE OUT 

* OF BOUNDS. HOWEVER* £3. THE COMPUTED ADORESS. IS LESS THAN 

* 24. THE STORAGE ALLOCATED. AND NO DIAGNOSTIC IS ISSUED. 


TURN ON ARRAYS FOR ALLEYS 

; • >.,1 \ ' ■ *• ' - '' ■' ; ’ " V 

ARRAYS 

■ . • ;■ f . t £ ! * . * , I 

WITH THIS FORM ALL ARRAY REFERENCES tflLL BE CHECKED. THERE WILL 
BE DIAGNOSTICS FOR BIS). Cl-l). ANOtMO.O.O). BECAUSE A(2) 
IS IN BOUNDS AND A(4) IS IN AAJ I/O STATEMENT. THERE WILL BE 
NO DIAGNOSTICS FOR EITHER OF THESE R£FP*ENCES. 

A (2) » 1 ‘ “ '• V < 

B(5) » 2 ♦ C(-l) 

DIO,0.0) » 1 
PRINT 2, A(4) 

2 FORMAT IIX, AID) . % 

END - -v. . ' f , .. !• < ! , * •• 
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ARRAYS EXAMPLE 


/DEBUG/ ARRAYS 

AT 

LINE 

/OEBUG/ 

AT 

LINE 

/DEBUS/ 

AT 

line 

/DEBUG/ 

AT 

line 

/OEBUG/ 

At 

LINE 


13- THE SUBSCRIPT VALUE OF 
?0- THE SURSCRIPT VALUE <1F 
47- THE SUBSCRIPT VALUE OP 

47- THF SUBSCRIPT VALUE BE 

48- THE SUBSCRIPT VALUE OF 


3 IN ARRAY A 
3 IN ARRAY A 
5 IN ARRAY 8 
-I IN ARRAY C 
-8 IN ARRAY 0 


EXCEEOS DIMENSIONED SOUNO OF 
EXCEEDS DIMENSIONED BOUND OF 
EXCEEOS DIMENSIONED BOUND OE 
EXCEEDS DIMENSIONED BOUND OF 
EXCEEDS DIMENSIONED BOUND OF 


6 

24 


CALLS STATEMENT 


/? 


CALLS (a, 


n 


CALLS 


- '.{jAj-.- - 


a,.a„ subroutine names 




s? C 


The CALLS statement initiates tracing of calls to and returns from specified subroutine If there is no 
subroutines will be traced. Non-standard returns, specified m a RETURNS list are 
included To trace alternate entry points to a subroutine, either the entry points roust be explicitly name in 
he atlcm feT or “he form wilhno argument list must be used (all external calls traced). The mess g 
printed coma,ns 'the names of the calling and called routines. as well as the line and level number o 

call and return. T , 

of ascending level number, returns in order of descending level n»mber. 


level 0 


level 2 



For example, subroutine SUB A is called at level I and a return is made to level 0. SUB B is called at 
level 2 and a return is made to level 1. 
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Example: 



PROGRAM CALLS<OUTPUT»DEBUG*OUTPUT! 

PRINT 1 

FORMAT<*0 CALLS TRACING*) 

TURN ON CALLS FOR SUBROUTINES CALLS! ANO CALLS2 

CALLS(CALLS1* CALLS?) 

X * 1. 

CALL CALLS1 (X*Y), RETURNS <10) 

IF CX .EQ. 1.1 CALL CALLS? 

CALL SUBNOT ^ 

CALL CALLS1E <X,YI 

DEBUG MESSAGES MILL BE PRINTED FOR CALLS TO AND RETURNS FROM 

CALLS1 ANO CALLS?. SINCE THE CALLS ARE FROM THE MAIN PROGRAM, 
THEY ARE AT LEVEL 0. THE CA1LS TO SUBNOT AND THE ALTERNATE 
ENTRY POINT CALLS1E ARE NOT TRACED BECAUSE THEY;DO NOT APPEAR 
IN THE ARGUMENT LIST OF THE CS CALLS STATEMENT* 


TORN ON CALtS FOR ALL SUBROUTINES 


CALLS 

CALL SUBNOT 
CALL CALLS? 

CALL CALLS1E (X,Y) 

OEBUG MESSAGES MILL BE PRINTED FOR CALLS TO AND RETURNS Ff 
SUBNOT* CALLS?, ANO CALLS1E, SINCE ALL CALLS ARE TO Bl 
TRACED. 

ENO 

f: : , \4‘ " K \ yT-* 1 £ ", v; , f-'« ' ; 

' X , / ,< f .' :: " 

■■■ : : ' 

SUBROUTINE CALLSKX.Y), RETURNS?A) 

Y * *X 

IF IT .NE. X) RETURN A 
RETURN 

ENTRY CALLS1E 

RETURN 

1NO 


CALL CALLS? 


\ , i ■ 


SUBROUTINE CALLS? 

CALL CALLS1IX.Y)* RETUFNS<5> 

RETURN 

ENO 


SUBROUTINE SUBNOT 
X » -1. 

CALL CALLS1 CX*Y) * RETUWS<5) 
5 RETURN 

5 ENO 
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calls mem 

/DEBUG/ CALLS AT LINE 
/DEBUG/ AT LINE 
/DEBUG/ AT LINE 
/DEBUG/ AT LINE 
/DEBUG/ AT LIME 
/DEBUG/ AT LIME 
/DEBUG/ AT LINE 
/DEBUG/ AT LINE 
/DEBUG/ AT LINE 
/DEBUG/ AT LINE 


S- ROUTINE CALLS! CALLED A? LEVEL 0 . , 

10- ROUTINE CALLSi RETURNS TO LEVEL 0 AT STATENENT 10 

10- ROUTINE CALLS? CALLED AT LEVEL • 

11- ROUTINE CALLS? RETURNS TO LEVEL 0 

?A- ROUTINE SUBNOT CALLED AT LEVEL 0 

25- ROUTINE SUBNOT RETURNS TO LEVEL 0 

?B- ROUTINE CALLS? TTAUEO AT LEVEL 0 

26- ROUTINE CALLS? RETURNS TO LEVEL 0 

?6— ROUTINE CALLS1E CALLED AT LEVEL 0 

?/- ROUTINE CALLSIE RETURNS TO LEVEL 0 


In this example, only calls from the main program are traced. To trace calls from subprogjAflis, a C$ 

CALLS statement must appear in the subprograms. 

* - 4 .* ;• . •- - 1 ' . . 


FUNCS STATEMENT 


FUNCS {«,4. 


FUNCS 


If no function narttes>,, ..„a n ) are listed, ptLexter^ functip^ reffren^in the program urtitire t**ced. 
Alternate entry points must be named Brgdft)£ftli|K& implicitly in thcw FUNCS 

statement with nojJ&rametttersi. p 

Function tracing is similar to call tracing, but "the value returned by the function is included Ibt&e debug 
message. Each Omen specified external Junction is referenced, a itte^Age is printed n$jph'^gptains $£ 
routine name and line number containing/,the reference, function tptneShd ty^Np, Value 
number. The level concept is the same a&Tfert^fe CALLS statement. % > 1 


Statement fu: 
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SUBROUTINE SCt <A,R,VI 
SET PUTS THE VALUE V INTO 

ntMrticrnN KMt 


ENTRY INC 

INC AOOS THE VALUE V TO EVERY ELEMENT IN THE ARRAY A 
0021=1»M . 

ssasa*”** 

«• ■ ■ ' V*t 
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SUBROUTINE IOTA <A,H) 
IOTA PUTS CONSECUTIVE 
THE ARRAY A 
0IHENSION A(H) 
D01I*1,M 
MIU1 
RETURN 

fHO f ? 


it EitHCHT 


FUNCTION PVAL(SIZE,WAY) 

,L COMPUTES THE POSITIVE VALUE OF WHATEVER REAL V 
BY A FUNCTION SPECIFIED fINEML PVAL HAS CALLED. 1 
VALUE PASSED ON T* THf-PMN^* 

Integer she • ^., Jpr M 

PUNCSCABSI ‘-i -M 

PVAL*A8S<MAY(SIZE)) ^ 

HAY OOCS NOT APPEAR fM TN* AJ 
SO ONLY THE RSFEfTC&I TO 

S " \ 

RETURH 

6 #° Jk, 


is returned 
% AW INT E GE R 


NT LIST FOR THE 


ON AVGfl) 
iTfS THE AVfRAj 

l *«•**;’ 


** 

REAL FUNCTION NUL 
C NULT COMPUTES A $TR 
C ELEMENTS OF CONN© 

C BY THE FUNCTION A 

C COMMON ARRAVil2» 

CS : PUNCf t 

e 

C ALL EXTERNAL FUND 

t - 

HULT»ARRAY!1E**AR 

RETURN 


NO tfTH 
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If the value of a variable in an EQUIVALENCE gi 
changes to the value of other variables in the^gjpftttp: 


VARIABLE NAMES 


sage is printed-bach time the value of a variable or an 
:he array must appear as arguments in the CS STORES 


In the first form of the STORES statement, ; 
array element changes. The variable and naan 
statement. 


PROGRAM STORES ( 
LOGICAL t%,L2 


= .OUTPUT) 


i lit # 


Each time the value of the variables 
values of PLANT, A, LI and LlfjTt 


:e they do not 


/0EBU6/ STORES 
/DEBUG/ 

/DEBUG/ " ' ■"*: 


The STORES statement is used to record changes in value of specified variables or arrays, The STORES 
statement applies only to assignment statements. Values changed as a result of input/output, or use in 
DATA, ASSIGN, COMMON, or argument lists to subroutines and functions are aot detected. The 
STORES statement does not apply to the index variable in a DO loop. 


Example: 
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the stored value is out of range, 


Out of range 


Indefinite 


C$ STORES (ROWSUM .RANGE,, CGLSUM .VALID.) 

i 1 . r 

Whenever the value to be stored into ROW$tllViHs out of Taage, a hi 
value to he stored into COLSUM is out of range or indefini«S h jness 


HOLLERITH DATA 


2001SS^S55555558Sei&f 

'. * ■ 5 

.j. / , • » . 

P A , blank fill . 

■ • X ^ ‘ r, > 

00000000000000002001 

aero fill P A*a 


IHOLL 


20010000000000000000 > 


P A zero fill 


i|iesstQi^‘in IHO 
The variable IHK? 


I appears in the debug output when it is equal to 3; N appears when it is less than or equal to M. 
Since no relational operator is specified wit|t ANT t His printed whenever the value . 

* . 's ': f ~ ^ /v " 


CHECKING OPERATORS 


in the third form of the STORES statement, a message is issued < 
indefinite, or invalid as specified'by the cheeking operator. 


RANGE 
, INDEF 
VALID 
|'or example: 


Hollerith data stored in a variable of type integer is interpreted by the ^TOR|S statement as 
number. Hollerith data scored in a variable Af ty|» ; J* 4 l hr douwi a*g|i& it tiitejpiSppd #t-a t 
nuble precision number. - ' 

• ' ; ' '-j : x'4 ■ -■ 4 : ;"?:.[ V. ^ 3 "t; 

In the following example, the three integer variables IHOLL, IRIGHT and ILEFT contain the characters 


IRIGHT 


ILEFT 


The Hollerith characters PA are interne 
and ILEFT are greater than 2**48-1, a 
contains the value 2001 (octal) which is 

The variable IHOLL is interpreted 


M3-14 
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Example 


ff^OUTPUT ,DEBUG*OUTPOf| 


PROGRAM OEHOi U 


lfe«SaHOL,IRISHT,UEFT,HOU> 

5£ * ' *• - t4‘ v * 

IWCftMM 

t»J6W»2RPA 

iterr.2t.PA 

SSST . 


/DEBUG/ 

/DEBUG/ 

/DEBUG/ 

/DEBUG/ 

#.'4 

v.r 


07ift96EM5 


" V/' > ‘ 

ilHaittemeM The GOTOS statement initiates 
it the statement label assigned to the integer 
d,4mpsage is printed and transfer of control 


No afguniaw 


mm «s« «. «**« xj*n '« * 

. ’ ‘V * ' 

m tl«t cm *9 MESSAGE JS WEJNftO SIMM TM LAWl ASSIGNED' tQ 
* JS I* TWt GOTO ItST. 


:# *#»****" —cowf«ot twM4j^««0 tu am«*wT iim 

IN THIS case « message is hbibte o since we imt <. is not w 

THE r.oto LIST. COWTOOL THEN tWMSEEE* TO LABEL *» 

* CONTINUE 
J CONTINUE 
EMO 


/Of BUG/ GOTOS AT LINE 16- ASSIGNED GOTO IWOEX CONTAINS THE AOOBESS 001151. NO HATCH FOUND IN STATEMENT LABEL AOOPSSS LIST 
—CONT»OL THANSFEPEO TO STATEMENT LABEL *— 
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TRACE STATEMENT 



TRACE <tv) 


TRACE 


Iv is a level number 0 - 49 . If lv = 0 , tracing occurs only outside DO loops. If lv = n. tracing Occurs up to 
and including level n in a DO nest. If no level is specified, tracing occurs only outside DO loops. 

The CS TRACE statement traces the following transfers of control within a program unit: 

GO TO 

Computed GO TO 

Assigned GO TO 1%\ 

■ ■ *"*&**■ ’r ■ ■ * :■ •• ■ . ,. 

Arithmetic IF / 

, 

True side of logical IF ‘ * 

. ■' 'v'v : ■ '/?;■ : : ; . 

Transfers resulting from a return specified in a RETURNS list are not traced,.01»ete can fee checked by the 
CALLS statement.) '"T ' c lit* • 

; . , = , v -** . 

If an out-of-bound computed GO TO is exerted, the value of the incorrect index is printed before the job 
is terminated. , ! 7 , ^ 

ring execution. The message contaim| tI^ rbutine name, 
her of the line to which the transfetf , ^as rftad^ as wef 


Messages are printed each time contrc 
the line where the transfer took place 
as the statement number of this line ii 

A message is printed each time control transfers at a level less than or equal to the one specified by lv. For 
example, if a statement CS TRACE(2) appears before asequenee ofDO loops nested four deep, tracing 
takes place in the two outermost loops only. ' 

TRACE messages are produced at execution time, but TRA^E levels are assigned at comply time; 
therefore, the compile time environment determines the tracing status Of any given statement. For example, 
a DO loop TRACE statement applies only to control transfers occurring between the DQ^tatement and its 
terminal statement at compile time (physically between the two in the source listing). 
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isse^ 


|| 


/DEBUG/ P 


/OEBUG/ 

/DEBUG/ 

/OEBUG/ 

/DEBUG/ 

/DEBUG/ 

/OEBUG/ 

/DEBUG/ 

/DEBUG/ 

/OEBUG/ 

/Debug/ 

/DEBUG/ 

/DEBUG/ 

/DEBUG/ 

/OEBUG/ 

/DEBUG/ 

/DEBUG/ 

/DEBUG/ 

/OEBUG/ 

/DEBUG/ 


iESSION 


TRANSEI 


EXPRESSION 

*® 

EXPRESSION 
LINE ;f - 82 


In effect. However, 
ret 3|pjere are no 
vete l and 4 in the 
tent "for the level 3 
j»el 3 loop, so that 


In the first level 2 loop no debug messages are printed sinGe the H 
when the TRAC£(3) statement becomes effective, flow is tra&ffui 
messages for transfers within the level 4 loop. To trace only inner 
above example, a C$ TRACE(4) statement is placed immediately, 
loop (line 16). A d OFF (TRACE) statement is placed after theN 
subseqaentprogra# flow p tevelsO, 1, and 2 is not traced. 


60305600 B 


















The level number applies to the entire program unit; it ts not relative to the position of the C$ TRACE 
statement in the program. For example, to trace the level 4 DO loop in Program P 


C$ TRACE (4.) 


must be specified. Positioning the statement C$ TRACE( 1) before statement 31 would not achieve the same 
result. 


Care must be taken with the use of debugging statements within DO loops. Since nested locate are executed 
more frequently, the quantity of debug output may quickly multiply. . 

The C$ TRACF. (Iv) statement traces transfers df control within DO loops. However, transfers between the 
terminal statement and the DO statement are not traced. 


Example 


100 CONTINUE 


Transfers from statement 100 to i 


NOGO STATEMENT 


No argument list must be specified with this statement. The^NP^pi^ftemeni suppresisest partial execution 
of a program containing compilation errojfl ' ' ; 

. ’ .. ,, 

When the debug mode is specified and the NOGO statementis «tw presept, programs execute 


therefore 


If a NOGO statement is present anywhere in 
not affected by an OFF statement or by 
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Executable Statements 


C$ STORES(A> 


Debugging cards are interspersed; they 
activated. 
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mmmm 


HBraSli 




Sr%l 
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*6 i 

v&m, 

k~-j*k-*F wm zifi 


internal 


When the dkbt^^g deck^ii placed iinmed|g^| gfter the 
statements, all statements in the program uni#wfft Se,4# 
deck); no statements in other program units Will be del 
composed of several program units known to be free of 
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FTN (l=TAP6t,D) 


Compiler 


FTM(D=TAPE1) 


Compiler 


The debugging deck is placed on a separate file (external debugging deck) named by the D parameter on 
the FTN control card and called in during compilation. All program units will be debugged (unless the 
program units to be debugged are specified in the deck). This positioning is useful when several jobs Can be 
processed using the same debugging deck. 

Figure 13-4. External Deck on Separate File 
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DEBUG STATEMENT 


' ' ’'V 

j“»v ;. 


DEBUG 


•ri,- 


DEBUG (name 1 . 1 ... ,jot{me ft } 


name,,....name,, routines to which the debugging deck applies 

Internal and external debugging decks start with a DEBUG statement and end with the first card other than 
a debugging statement or comment. Interspersed debugging statements do not require a DEBUG statement. 
' ■ ■ ... ■ , ..... 

In an internal debugging deck, the first form .CS DEBUG statement without aft argument list is generally 
used, since the deck can apply only to the program unit ift which it appeals. If a name is ipeetfiedj it must 
be the name of the routine containing the debugging deck; if any Other name is specified, an informative 
diagnostic is printed. r; . - ' V t 


In an external debugging deck, if no names are specified, the deck ajpplies to all rots 
Otherwise, it will'apply to only those program units specified'by name,,..,,name B ; if 
specified, an informative diagnostic is printed. 


Example: 


■’ : 

, - • i 


:s compiled. 
ber is 

%>■>/ 

.. 


In the following program, a DEBUG statement is not required since the debugging statement, CS 
STORES (A,B), is interspersed. ; s . 


PROGRAM STORAR (INPUT,OUTPUT,DEBUG*! 
REAL A<101, 8<4,« 

STORES' (ft*8) 

8(i»2) * 9.1 ; ; 

B<4,2) * 0. 

DO 4 N * 1,3 

t. A<N> * N+i , ■■ rW 

PRINT 5 

5 FORMAT CiHf* ' ./i? . W 

STOP 
EN8 
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However, if the C$ STORES statement immediately follows the PROGRAM statement, this is an internal debugging 
deck, and a C$ DEBUG statement must appear. 


PROGRAM DEHOL ClNPUT,OUTPtfT*OEBUt5*OUTPUTI 


CS OEBUG 

C$ STORES (IHOL ,IRIGHT » ILEFT*»$U> 


IH0L=2HPA 
IRIGHT«2RPA 
ILEFT=2LPA 
HOLL=2HPA 
PRINT 1 
1 FORMAt C1H0) 
STOP 
ENO 


There can be several DEBUG statements in an external 

once-. ' A " 


DEBUG 

STORES(I,J) 

DEBUG(MAIN,EXTRA,NAMES) 
ARRAYS(VECTAB,MLTAB) 
DEBUG(MAIN) 

TRACE 

CALLS(EXTRA,NAMES) 
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AREA STATEMENT 


AREA bounds, , ,,., bouncy 


bounds, 


bounds. 


AREA/nwne, /bounds, 


CS AREA(bouOds, ,...,bouhds n ) is used in 


name,,name. name n are the names ot routines towmcn i 

bounds are line positions defining the ares to he debugged 
t . • " 5 i - 

bounds can be written in one of the following fprths: 

... . V ' '1 

i 

(n,.n,) n, Initial line position 

■ , ' . ’ Vj.; ( ■ 

fij ferhiinai line position 


* list line bf J>rb|MtHrt v 

* first line of program 

% Terminal line position 

■ . ■ ' ■" \ ' . 

* ' First line of program 

* ' Last line of program 


Line positions can be: 

. nnnnn Statement label ■ j 

Lnnnn Source program line number as printed bit the jdurgf listing by the FORTRAN 
Extended compiler (source listing line numbers when debugging cards are 

interspersed in the program). | fy.i 

’ 1 - $ ' .. /’ 

id.n UPDATE line identifier (refer to UPDATE Reftffence Manual); id must begin with an alpha¬ 

betic character and contain no special characters. 

A comma must be used to separate the line positons, and embedded blanks are not Any of the 


1-13-26 


60305600 B 



The AREA statement is used to specify an area to be debugged within a program unit. All debugging 
statements applicable to the program areas designated by the AREA statement must tollow that statement. 
Each AREA statement cancels the preceding program AREA statement. An AREA statement (or contiguous 
set of AREA statements) specifies bounds Yor all debugging statements that occur between it and the next 
CS DEBUG, AREA statement, or FORTRAN source statement. -i 

statements may appear only in an external or an internal debugging deck (figures 13-2, 13-3, and 
If they are interspersed in a FORTRAN source deck, they will be ignored. 

It external debugging deck, the following form, with /name,/ specified, must be used. It isjgi be used 
i both forms of the DEBUG statement. 


DEBUG 


yname n /bounds 1 


AREA/name, /bounds, 


bounds, 


DEBUG (name 


/name (i /bounds 1 


AREA/name, /bounds. 


bounds, 


If /name,/ is omitted, or names in the /name;/ list do not appear in (name,.nam%) in the DttfUG 

statement, the AREA statement is ignored/ 

In an internal debugging deck, the following form is used, and the bounds apply to the program unit that 
contains the deck. 


DEBUG 


,bounds 


AREA bounds 
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OFFtx. 


The OFF statement deactivates the options specified by x s 
no argument list exists. Only options activaterfMby interspersed ■ 
activated in debug decks or by subsequent debugging statements 


active 

staterr 


Example: 

External deck 


; J»- ^ -“Vf ■, 

-4 % *'* ’• 1 h i 

C$ DEBUG 

C$ AREA/PROGA/ (XNEW. 10.XNEW.30) , /SUB / * Jti50 ) 

C$ ARRAYS (TAB,TITLE,DAYS) 

C$ AREA/SUB/(15,99) 

C$ STORES (DAYS) '>5 


Internal deck 

C$ DEBUG 
C$ AREA (L10,*) 
C$ fUNCS (ABS) 

OFF STATEMENT 


•* ■ 


X|,...,X„ debug Options . * 


The OFF statement is i 
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5 


10 


PROGRAM OFF <OUTPUT,OEBUG«OUTPUT) 

Cl DEBUG 
Cl STORES(C) 

INTEGER A, 8, C 
Cl STORES!A, 9) 

A * 1 
8 = 2 
C = 3 

* 

* MESSAGES MILL BE PRINTED FOR STORES INVO A, 8* AND C. 

* ■. '-V;' 

Cl OFF 

* 


15 


20 


A = 
B * 
C * 
THE 


4 

5 

6 

OFF STATEMENT MILL ONLY AFFECT THE INTERSPERSED DEBUGGING 
STATEMENT, SO THERE MILL BE NO MESSAGES FOR STORES INTO 
A OR B. HOMEVER, Cl STORES(C) IN THE DEBUGGING DECK IS NOT 
AFFECTED, AND A MESSAGE IS PRINTED FOR A STORE INTO C. 


END 


/0E9UG/ OFF 

AT 

LINE 

7 - THE 

NEM 

VALUE 

OF 

THE 

VARIABLE 

A 

IS 

/0E3UG/ 

AT 

LINE 

8- THE 

NEM 

VALUE 

OF 

THE 

VARIABLE 

B 

IS 

/DEBUG/ 

AT 

LINE 

9- THE 

NEM 

VALUE 

OF 

THE 

VARIABLE 

C 

IS 

/DEBUG/ 

AT 

LINE 

17- THE 

NEM 

VALUE 

OF 

THE 

VARIABLE 

C 

IS 
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PRINTING DEBUG OUTPUT 


Debuo messages produced by the object routines are written to a file named DEBUG. The file is always 
printed upon job termination, as it has a print disposition. To intersperse debugging information with 
output, the programmer should equate DEBUG to OUTPUT on the program card. An FETjand buffer are 
supplied automatically at load time if the programmer does not declare the DEBUG file in the PROGRAM 
statement. For overlay jobs, the buffer and FET will be placed in the lowest level of overlay containing 
debugging. If this overlay level would be overwritten by a subsequent overlay load, the debug buffer will e 
cleared before it is overwritten. 


At object time, printing is performed by seven debug routines coded in FORTRAN. These routines are 
called by code generated at compile time when debugging is selected. 


Routine 

Function 

BUGARR 

Checks array subscripts 

BUGCLL 

Prints messages when subroutines are called and when return to calling 
program occurs 

BUGFUN 

Prints messages when functions are called and when return to calling 
program occurs 

BUGGTA 

Prints a message if the target of an assigned GO TO is not in the list 

BUGSTO 

Performs stores checking 

BUGTRC 

Flow trace printing except for true sides of logical IF 

BUGTRT 

Flow trace printing for true sides of logical IF 


STRACE 


Traceback information from a current subroutine level back to the main level is available through a call to 
STRACE. STRACE is an entry point in the object routine BUGCLL. A program need not specifv the D 
option on the FTN card to use the STRACE feature. 

STRACE output is written on the file DEBUG; to obtain traceback information interspersed with the source 
| program’s output, DEBUG should be equivalenced to OUTPUT in the PROGRAM statement. 

PROGRAM MAIN 

PROGRAM MAIN (OUTPUT,DEBUG = OUTPUT ) 

CALL SUB1 
END 
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SUBROUTINE SUB1 


SUBROUTINE SUB1 
CALL SUB2 
RETURN 
END 



SUBROUTINE SUB2 


SUBROUTINE SUB2 
I - FUNCI(2) 
RETURN 
END 


FUNCTION FUNCI 


FUNCTION FUNCI (K) 
FUNCI - K * * 10 
CALL STRACE 
RETURN 
END 


. 


5- TRACE ROUTINE CALLED 

FUNCI CALLED BY SUB2 AT UNI 
SU92 CALLED BY SUBt AT LINE 
SUB! CALLED BY RAIN AT LINI 


/0E9UC/ FUNCI AT LINE 


2, FRON 1 LEVELS BACK 
2* FRON 2 LEVELS BACK 
2* FRON 3 LEVELS BACK 


A main program is at level 0: a subroutine or function called by the main program is at level 1; another 
subprogram called by a subprogram is at level 2, etc. Calls are shown in order of ascending level number, 
returns in order of descending level number. 


For additional information regarding the debugging Facility, refer to the FORTRAN Extended Debug 
User’s Guide. : 
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SAMPLE PROGRAMS 


ll-l 


PROGRAM OUT 

Program OUT illustrates the WRITE and PRINT statements. 
Features: 

Control cards 

WRITE and PRINT statements 
Carriage control 



PAT,T10,CM45000. 

The job card must precede every job. PAT is the job name. T10 specifies a maximum of 10 (octal) seconds 
central processor time, and CM45000 requests 45000 (octal) words of memory for the job. 


FTN. 

Specifies the FORTRAN Extended compiler and uses the default parameters, (section 11, part 1.) 

LGO. 

The binary object code is loaded and executed. 

If no alternative files are specified on the FTN card, the FORTRAN Extended compiler reads from the file 
INPUT and outputs to two files: OUTPUT and LGO. Listings, diagnostics, and maps are output to OUT¬ 
PUT and the relocatable object code to LGO. 


7/8/9 

The end-of-record card (EOR) or end-of-section card (EOS) separates control cards from the remainder of the 
INPUT file. The end-of-record card is a multipunch 7/8/9 in column 1; it must follow the control cards in 
every job. 
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PROGRAM OUT (OUTPUT,TAPES-OUTPUT) 


The PROGRAM card identifies this as the main program with the name OUT and specifies the file 
OUTPUT. Output unit 6 will be referenced in the program. All files used by a program must be specified in 
the PROGRAM card of the main program. 

TAPE6 = OUTPUT is included because output unit 6 is referenced in a WRITE statement. The unit number 
must be preceded by the letters TAPE. All data written to unit 6 will be placed in the file OUTPUT and 
output to the printer. 


WRITE (6,200) INK 

The WRITE statement outputs the variable INK to output unit 6. If a PRINT statement had been used 
instead of WRITE: 

PRINT 200, IRK 

TAPE6- OUTPUT would not be needed in the PROGRAM card; PROGRAM OUT (OUTPUT) would be 
sufficient. 

100 FORMAT (*1 THIS WILL PRINT AT THE TOP OF A PAGE*) 

This FORMAT statement uses * * to delimit the literal. 1 is a carriage control character which causes the 
line to be printed at the top of a page. 

200 FORMAT (15,* - INK OUTPUT BY WRITE STATEMENT*) 

Although the variable INK is 4 digits, a specification of 15 is given because the first character is always 
interpreted as a control. In this case, the carriage control character is a blank and output will appear on the 
next line. 


6 / 7 / 8/9 

This is the end of file (EOF) or end of partition card; a multipunch 6/7/8/9 in column 1. This card must 
appear as the last card in each job. 
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PAT*T10*CM45000. 

FTN. 

LGO. 

7/8/9 in column 1 

PROGRAM OUT (OUTPUT*TAPE 6=OUTPUT) 

PRINT 100 

100 FORMAT <*1 THIS WILL PRINT AT THE TOP OF A PAGE*) 
INK = 2000*4000 
WRITE (6»200) INK 

200 FORMAT (15** = INK OUTPUT BY WRITE STATEMENT*) 
PRINT 300* INK 

300 FORMAT (1H *I4*30H = OUTPUT FROM PRINT STATEMENT) 
STOP 
END 

6/7/8/9 in column 1 


Output: 


THIS WILL PRINT AT THE TOP OF A PAGE 
6000 * INK OUTPUT B> WRITE STATEMENT 
6000 = OUTPUT FROM PRINT STATEMENT 


60305600 A 


II-1-3 


PROGRAM B 


Program B generates a table of 64 characters indicating which character set is being used. The internal bit 
configuration of any character can be determined by its position in the table. Each character occupies six 
consecutive bits. 

Features: 

Octal constants 
Simple DO loop 
PMINT statement 

FORMAT with H./,I,X and A elements 

The print statement PRINT 1 has no input/output list; it prints out the heading at the top of the page using 
the information provided by the FORMAT statement on line 3. 25H specifies a Hollerith field of 25 
characters, 1 is the carriage control character, and the two slashes / / cause one line to be skipped before the 
next Hollerith field is printed. The slash at the end of the FORMAT specification skips another line before 
the program output is printed. 



ofthe octal 
srs ale left y 


NCHAR- 00 01 02 03 04 05 06 07 


Vv; , ’I f Mi ' Th 

' t'fr *>’ ' V im*% 

This statement places an octal constant in NCHAR The blanks and leading mm couW omitted without 

** .......... *...*.*-*,^ommmi 


affecting the program; they are included for readability. A com 
but since this statement uses only 8 characters, the 4 zeros' at 
characters into the left 48 bits of the computer word. The 8 
. printed using A format. ^ .. 7 . • 


DO 3 1=1,8 
J = I-1 

These statements output numbers 0 through 7. A DO index cannot begin with a zero. 
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PRINT 2, J, NCHAR 


Prints out 0 through 7 (the value of J) on the left and the 8 characters in NCHAR on the right. The first 
iteration of the DO loop prints NCHAR as it appears on line 4. The octal value 01 is a display code A, 02 
is a B, 03 is a C, etc. 



SWJHAR-fCHAR+lt* io ion© 10 10 10 1 




The octal constt 
iteration of the 
#«*e Values wftl 


0101010101 
op, .the octal 


BBBBB *T10*CM70000»P15« 

HAP(OFF) 

FTN. 

LGO. 

7/8/9 in column 1 

PROGRAM B (OUTPUT) 

PRINT 1 

1 FORMAT(25H1TABLE OF INTERNAL VALUES//12H 01234567*/) 
NCHAR= 00 01 02 03 04 05 06 07 00 OOB 

DO 3 I = 1,8 
J= I -1 

PRINT 2, J,NCHAR 

2 FORMAT(13*IX*A8) 

3 NCHAR=NCHAR«TO 10 10 10 10 10 10 10 00 OOB 
STOP 
END 

6/7/8/9 in column 1 


Output: 


TABLE OF INTERNAL VALUES 
01234567 

0 A8C0EFG 

1 HIJKLMN0 

2 PQRSTUVW 

3 XY701234 

4 567894-* 

5 /(> $= 

6 rt]t#i*vA 

7 *+<><>“*? 
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PROGRAM MASK 


'ring all but the first two letters of the 


Program MASK reads names and home states frcUft data i 
state name. If the state name starts with the letters CA, the 

Feature: 


Masking 


1 FORMAT (Ufi,«,4HNAIIK,///) 
PRINT 1 


NAME, and skip 3 lines 


The printer is directed to start a new 


READ 2,LNAME,FNAME,ISTATE,KSTGP 
IF(KSTOP.EQ.1)STQP 


into FNAME, and home state into ISTATE. The last card in 
fcSTOP as a stop indicator. The IF statement online 6 tests 


The last name is read into LNAME, first 
the deck contains a one which will be res 
for the stop indicator. 


700000000000 

; :T -"■ : --- ■ y 


IF((ISTATE.AND.77770000000000001 
KOOOOOB)) GO 10 3 


The relational operator .NE. tests to 'detearnihuPIC twb fctt&i'retiS frbnr the date card into variable 

ISTATE match the two letters of the Hollerith constant CA. The last eight characters (48 bite) in ISTATE 
are masked and the two remaining characters are compared with the word containing the Hollerith con¬ 
stant CA, also similarly masked. If the bit string forming one word is not identical to the hit string forming 
the other word, ISTATE is not equal to CA and the IF statement test ia true. 

V ,..T : 'T': ' ..... ' : : T’: 

The bit configuration of CALIFORNIA, the Hollerith constant CA and the mask follows: 


California 


01Q01P 


Hollerith 

C 

A 

: ■ V 

1 

Octal 

03 

01 

14 

' ■’ > , ’is . " 

11 

Bit 

000011 

000001 

001100 

001001 



11 - 1-6 
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Constant CA 


Hollerith 

C 

; a 

blank 

blank 

blank 

blank 

blank 

blank 


blank 

blank 

Octal 

03 

01 

55 

55 

55 

55 

55 

55 


55 

55 

Bit 

000011 

000001 

101101 

101101 

101101 

101101 

101101 

101101 

101101 

101101 

Mask 






'1- 




Octal 

77 


00 

00 

od 

00 

00 

00 


00 

00 

Bit 

111111 

mm 

000000 

000000 

000000 


000000 

000000 


000000 


IPS 

I—1 

teal 

-?v, 



• ■ 

; , /‘pi 

femiiil 

; 

■ 

% ■«. v 



When the masking expression (ISTATE.AND.7777OOOOOOOO0OOOOOOOB) is completed, the first two charac¬ 
ters of CALIFORNIA remain the same and last eight characters are zeroed out. The AND operation 


follows: 


iim : . '% 

, * . ; 

. 




000011 

000001 

001100 001001 000110 00111V 

010010 

001110 

001001 

000001 

111111 

111111 

■- ■ # ■ 

000000 000000 000000 000000 

000000 

000000 

000000 

000000 


000011 000001 000000 000000 000000 000000 000000 000000 000000 000000 

. ■■ ■ 


■■■ . si'- - ' ' 

When (2HCA.AND.7777OOOOOOOOOOOOOOO0B) is evaluated, the same result is obtained. Thus, in both 
words, all bits but those forming the first two characters will be marked, making a valid basis for compar¬ 
ing the first two characters of both words. If the result of the mask is true, the last name and first name are 
printed (statement 10), otherwise the next card is read. 
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PROGRAM MASK (I NPuT »Q 
FOHMAT <1 hI* 5X»4HNAM£ 
PwlNT 1 

FOHMAf (3A1Q*U> 

REAL) <?»LNAME,FNAME,IS 
IF(KStOP*£Q.l>SToP 


C IF FIRST TWO CHARACTERS 


lO.T M TO CA RE^F N 

- , .jf- 

OOOOOI,Nt.f^MCA.ANy.7 


: ' ' 

0000000 


IF(<ISTATE.ANO.77 
K000008)> GO TO 3 


Data cards 


BROWN, PHILLIP 

BICAR01, R. J. 

CROWN. sylvia 

higenberf.^eloa 

MUNCH, GARY G. 

SMITH SIMON 

DEAN ROGER 

RIPPLE SALLY 

JONES STAN 

HEAtH a!§L 


bftttXA 
N£* YORK 
OREGON 
NEW YORK 


PHILLIP H* 
SYLVIA 
GARY G, 
SIMON 


FORMATfSX,CA10I . - ' , 

PRINT 11rtNAME »FNAM£ 

GO TO 3 
End ^ 


Output: 


NAME 


BROWN, 

CROWN, 

HUNCH, 

SMITH 


lf-l-8 
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PROGRAM EQUIV 


Program EQUIV places values in variables that have been equivalenced and prints these values using the 
NAMELIST statement. 

Features: 

EQUIVALENCE statement 



EQUIVALENCE (X,Y),(Z,I) 

Two real variables X and Y are equivalenced; the two variables share the same location in storage, which 
can be referred to as either X or Y. Any change made to one variable changes the value of the others in an 
equivalence group as illustrated by the output of the WRITE statement, in which both X and Y have the 
value 2. The storage location shared by X and Y contained first 1. (X= 1.) then 2. (Y = 2.). 

The real variable Z and the integer variable I are equivalenced, and the same location can be referred to as 
either real or integer. Since integer and real internal formats differ, however, the output values will not be 
the same. 

For example, the storage location shared by Z and I contained first 3. then the integer value 4 When I is 
output, no problem arises; an integer value is referred to by an integer variable name. However, when this 
same integer value is referred to by a real variable name, the value 0.0 is output. The internal format of 
real and integer values differ. 


Integer 


Sign 



Real 


59 58 46 47 



Biased 

Fraction(m) 


Exp 



Sign 


Although they can be referred to by names of different types, the internal bit configuration does not change. 
An integer value output as a real variable does not have an exponent and its value will be small. 

When variables of different types are equivalenced. the value in the storage location must agree with the 
type of the variable name; or unexpected results may be obtained. 
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WRITE(6,OUTPUT) 


This NAMELIST WRITE statement 
LIST group OUTpVr 'steftned in the 
preceded by the group name, OLITPI 


PROGRAM EQUIV (OUTPUT ,TAPE6*0UTPUT> 
EQUIVALENCE CX,>),(2,I> 
NAMELIST/0UTPUT/X,Y,2,I 


X=i • 

Y=2 • 

2=3. 

1=4 

NRITEC6,OUTPUT) 

STOP 

ENO 


Output: 

SOUTPUT 

X * 0.2E+01, 

Y = 0.2E+01, 

7 = 0 . 0 , 

I * 4, 

SEND 
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PROGRAM COME 


Program COME places variables and arrays in common and declares another variable and array equivalent 
to the first element in common. It places the numbers 1 through 12 in each element of the array A and 
outputs values in common using the NAMELIST statement. 

Features: 

COMMON and EQUIVALENCE statements 
NAMELIST statement 

COMMON A(1),B,C,D, F,G,H 

Variables are stored in common in the order of appearance in the COMMON statement A(1),B,C,D,F,G,H. 
Variables can be dimensioned in the COMMON statement; and in this instance, A is dimensioned so that it 
can be subscripted later in the program. If A were not dimensioned, it could not be used as an array in 
statement 1. 


INTEGER A,B,C,D,E(3,4),F,H 

All variables with the exception of G are declared integer. G is implicitly typed real. 


EQUIVALENCE!A,E,I) 

The EQUIVALENCE statement assigns the first element of the arrays A and E and an integer variable I to 
the same storage location. Since A is in common, E and I will be in common. Variables and array elements 
are assigned storage as follows: 


Relative 

Address 0 +1 +2 +3 +4 +5 +6 +7 +8 +9 +10 


1 












Etl.1) 

E12.1) 

E13.1) 

Ell,2) 

E(2,2) 

E(3,2) 

Ell ,3) 

E(2,3) 

E(3,3) 

Ell ,4) 

E(2,4) 

E(3,4) 

All) 

B 

C 

D 

F 

G 

H 







A(2) 

A13) 

A(4) 

A(5) 

A<6> 

A(7) 

A18) 

A (9) 

A110) 

Alii) 

All 2) 
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DO 1 J=1,12 
1 A ( J ) = J 

The DO loop places values 1 through 12 in array A. The first element of array A shares the same storage 
location with the first element of array E. Since B is equivalent to E(2,l), A(2) is equivalent to B, A(3) to C, 
A{4) to D, etc. 

Any change made to one member of an equivalence group changes the value of all members of the group. 
When 1 is stored in A, both E( 1,1) and I have the value 1. When 2 is stored in A(2), B and E(2,l) have the 
value 2. Although B and E(2,l) are not explicitly equivalenced to A(2), equivalence is implied by their 
position in common. 

The implied equivalence between the array elements and variables is illustrated by the output. 


NAMELIST/V/A,B,C,D,E,F,G,H,I 

The NAMELIST statement is used for output. A l^AMtUST group, V, and aarrays 

A.B.C.D.E.F.G.H.l is defined. The NAMELIST WRITE statement. WR1TE(6,V|. outputs all tfle mierttersor 
the group in the order of appearance is the NAMELIST statement. Array E is output on one hne in the 
order in which it is stored in memory. There is no indication of tip.ntpntier of rows and colmfafts (3,4). 

G is equivalent to E(3,2) and yet the output for E(3,2) is 6 and G 0.0. G is type real and E is type integer. 
When two names of different types are used for the same element, their values will differ because the 
internal bit configuration for type real and type integer differ (refer to Program EQUIV). 


PROGRAM COME (OUTPUT,TAPE6=0UTPUT) 
COMMON A(1),8,C,D, F*G,H 
INTEGER A,B,C,0,E(3,4),F, H 
EQUIVALENCE (A,E,I> 
NAMELIST/V/A,B,C,0,E»F,G,H,I 

00 1 J = If 12 
1 A(J) s J 

WRITE (6fV) 

STOF 

END 
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Output: 


SV 

A 

B 

C 

D 

E 

F 

6 

H 

I 

SEND 


1* 

2 , 

3, 

4, 

i, 2, 3, 4, 5, 6, 7, 8, 9, iO, lit 12* 

5, 

0 . 0 , 

7, 

1 * 
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PROGRAM UBS 

Program LIBS illustrates library subroutines provided by FORTRAN Extended. 



Features 


EXTERNAL used to pass a library subroutine name as a parameter to another library routine. 


Division by zero. 

LEGVAR used to test for overflow or divide error conditions. 


Library functions used 
LOCF 
LEGVAR 


Library subroutines used 
DATE 5 
TIME ’ 

SECOND 
RANGET 


rator from the console. DATE is 
\ Declaring DATE external does 


DATE is a library subroutine which returns the date entered by the 
declared external because it is used as a parameter to the function L< 
not prevent its use as a library subroutine in this program. 


PRINT2,TODAY,CLOCK . / f ■- 

Z FORMAT(*1TODAY-*t, AlO, * CLOCK-*,AlO; 

'iff'' f $ J s .?< H ' * 

These statements print the date and time, The leading and trailing blanks appear with the 10 alphanumeric 
characters returned by jhe subroutine DATS because the operator typed in the date this way. However, 
since he may choose to use a 4-digit year, it tnajr be prudent to use A1 X in the output FORMAT specifica¬ 
tion to guarantee at least one leading space. The value returned by TIME is changed by the system once a 
second, and the position of the digits remain fixed; a leading blank always will appear. The format of 
DATE and TIME can be checked by observing any listing, as the routines DAT? and TIME are used by the 

compiler to print out the date and time at the top of compiler output listings. 
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m % * is i 


. &m?4i iips 

Ilf ; 


■ «: 


CALL SECOND(TYKE) 


When SECOND is calied,the variab 
a program unit name. If Program 1 
spelled TIME. 


wow*f.@/Y * Vi ji • : > > J ' 

XftO.NS. LEGVAR(WOW) )PRINT4,W0W *- 

■ ; : • : '■ - k : -k ■ ■■■ k 

These statements illustrate the use of the library function LEGVAR ytthin an IF statement to test the 
validity of division by zero. LEGVAR checks the variable WOW. this function returns a resttltof-l if the 
variable is indefinite, +1 if it is out of range, and 0 if it is the value returned by 

LEGVAR with 0 shows that the number is either indefinite or owoffhnge.The output RRR shows the 
variable is out of.range. S ■ 

V ;.■# r % W- W-:- Vf 3, 

Division by zero is allowed on the CDC CYBER 72, 73, ,74, and 60Q0Sefies computers and there is a repre¬ 
sentation for an infinite value (refer to sdcticn 4, part III). Divisionby\jser© on CIX^CYBER,.7E and 7000 
Series causes an immediate mode error. » S * \ 


on the output is produced by the; FORMAT sj 


in statement number 4 50(2H*-) 
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PROGRAM LIBS (OUTPUT) 

EXTERNAL OATE 

■ ■/ , " ■; • ■■ ' i:- ■ 7 

CALL GATE (TODAY) V 

CALL TIME (CLOCK) . 

PRINT 2* TODAY• CLOCK 

FORMAT(*1T0DAY»** JUG* * <*.OCK»** A 

CALL SECOND(TYME) 

LOCATN»LOCF(OATE) f .* 

CALL RANGET ISCED) 

PRINT 3.TYME* LOCATN. LOCATNt SEED* 
FORMAT(*6THE ELAPSEO CPU TIME IS*tG 
1 DATE ROUTINE lS»**OIS** QM«tf7o* I 
i OF THE RANF SEED IS*.022.**OH*t03 

YsO.O 

WOM«?*2/Y •’ '-*■»' • 

IF<0 .NE. LEGVAR(ttOW))PRINTA*MGW 
STOP 

divide ek«0«. 


►I4.&** SECONDS.*//* LOCI 
N DECIMAL.*/*0THE INITK 

'«*!»** *« format. 

* ? j - - 1 , . • • *| 
' . s- * : i r ; .. 1 fc-w 


' . • - 

TOOAM •6/87/7i fit.MM il.tt.Ci. 

re? ELAPSED CPU TIM IS .mil SCCOM 
'STtOH OF BATE ROUTINE XMOOOOOtOMOtttit 
.(IE INITIAL VALUE OP THE MNP SEE* IS iUTi 




PROGRAM PIE 


Program PIE calculates an approximation of the value of it . 

Feature: 

Library function RANF 

The random number generator, RANF, is called twice during each iteration of the DO loop, and the values 
obtained are stored in the variables X and Y. 


DATA CIRCLE,DUD/2*0.0/ 

The DATA statement initializes the variables CIRCLE and DUD with the value 0.0. 

Each time the DO loop is iterated, a random number, uniformly distributed over the range 0-1, is returned 
by the library function RANF, and this value is stored in the variable X. The value of X will be 0^X<1. 
DUD is a dummy argument which must be used when RANF is called. 

Y-RANF(DUD) 

RANF is referenced again; this time to obtain a value for Y. 


IF(X*X+Y*Y.LE.l.)CIRCLE-CIRCLE+1. 

The IF statement and the arithmetic expression 4.*CIRCLE/10000. calculate an approximation of the value 
of 7r. The value of ir is calculated using Monte Carlo techniques. The IF statement counts those points 
whose distance from CIRCLE(O.O) is less than one. The ratio of the number of points within the quarter 
circle to the total number of points approximates 1/4 of n . The value PI is printed by the NAMELIST 
statement WRITE(6,OUT) 
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PROGRAM Pit <OUTPUT*TAPfct>-UUTPUT} 
DATA C IPCLt *OUD/<?*0 • 0/ 

NAMELIST/OUT/PI 

UO 1 I = 1*10000 
X=hANF(OUD) 

Y=PANF(DUD) 

IF <X«X*Y*Y.LE.l.)CIRCLt=ClRCLt+i» 
1 CONTINUE 

P1=4.*CIRCLE/10000. 

WRITE(6 * OUT > 

STOP 

END 


Output: 

SGUT 

PI * 0.31596E+01* 

SEND 
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PROGRAM ADD 


Program ADD illustrates the 


Features: 




buffer Cotn?s 


i*$||fhp itoord 


another 


ENCODE (' 


statement is processed by compiler toutines in the same way as the WRITE statement; but 
is output, the character siring is mewed into the array specified within the parentheses of the 
ment. The number of words moved from the output buffer to the array is determined by the 


DECODE statement. . 

ENCODE and DECODE 

•5 7 '¥j ■ ■ 'W 

ENCODE and 

IlllF 3 

DECODE (ftEADf 

A READ statement places the 
computer words, each ward con 
string in the card iatage into 
ment, and store these values into 

With DECODE, the information in t 
statement. The number of words moved 
length. Since the input buffer is 150 wo: 

With the READ statement, when the F 1 
/ or the final r^hfjparentbesis pf dii 
card into tbg input buffer. . 

. t y ^ ' ’ '*4 

With the DECODE statement, when 
or final right parenthesis), as mafiy wold 
and placed in the input buffer. ' \ h * 


.1 ' ' i 

is,**- ■■ 

... ft»/*■ -v-'»V 

A WRITE statement cause* the 
converted intd f character string 
output buffer. When the FORMAT si 
parenthesis, the character string is passed 
area is reset to spaces, and the next string of characters is pfaCed jo tl 

The ENCODE 
when a recordis 
ENCODE statement 
record length. 
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The number of computer words in each ENCODE or DECODE <?cord «s determimjd by .nv.du^ i 
record length by 10 and rounding up. For example, a rtc ,ru length of j j h^ujsuc 4 wc-xd auc .. 
length of 71 requires 8 words. •■. . , ■ 

As a mnemonic aid, it may be useful to remember READ ends with a cot responds to ptCQu-c 

WRITE ends with an E and corresponds to ENCODE. 

In the following program, the format of data oft the input cards is specified in column 1. li column 1 is e one, eaen 
of the remaining columns is a data item. If cotton 1 is.si two, each pair of tfcfe remaining coltimm is-a data item. If 
column 1 is a three or greater, each triplet of the remaining columns is a data item. Based cm the inforrnsnion in 
column 1, the correct DECODE statement (the format and ito count) art- selected The progmpl then r.r ^ 
and prints out the items in each input card.! % ’ > ■ . \ 


program ado ^, ,3V■. ,.V; v m 

i (INPUT,OUTPUT.TAPfc.S*iNt>UT,TAPt6*0WHUf) * 4 ,'/ V 

INTEGER CAR0tdJ.lNt7S».rbTAt .. V ^ 

10 KcAOCb»in*EV,CARO ■ ' • . fcV •' . ? *- , 

n FORMAT (I1,7A10»A9) . • : I v % 

IFt£OF(5>.ME.O»STOP ? . “ & ! '< 

KEY=MAA0 ( 1 »MIN0 (KEY *31 > , ' ’■ f.v’ 

1^ DECODE(mU,cLoHN * ’ 

2 DECODE (78.92,CARD) tIN(n*I»I,4%J ' - • > 

92 s AT,3 " u> f ': 

3 UEC0DE<78»?3*CARD> UM I > , £ \ . r- , , f >'V> 

97. format( 26i3i ; , « ’ 

n*26 ; j * ' " * " y* 1 

IOTAU=0 • /• , - ‘ . 4 

UOAl I«I *N V ‘it* : W ••vc f .. .: * ‘ 

41 TOTAL*T0TAL*1N(I) ... * ... , 

WR1TE tb,12>ToTAL,N*Rt¥,CARO* < 1ft t A I (I* 1 trig» ,T , ' 

12 FORMAT t/16,20H IS THE TOT AL fF .ftiT * Tng $*RO, 

112,7A10,A9/;6H THE NUMBERS «»® 1 ,S' ‘ , :f ); ;• 

v <? OTOi ° 

ENU I, \ ^ (.*4 ?• 

21322Sb476b98877&533210332245666e-779b5SM23j322H236&4rttV6541|3oSS47: 

302144S669987745t|83221445SP6665S23,36^|2|lA44S|,6t3^|s.6bo99|8^6G^4 

S556666322366bS323322144Sat.6699887 l 2e^|iBtiAA9hS^l2233|3|^^A8fey«8| 

10234S6668889988778996&SS4444S5«,^S«|31#|#|^|3^2^33^^««B^22P34| 



Output: 


1900 IS The TOTAL OF THE 39 NUMEEPS OK THE CARO 
213225547669867756332103322456668779655412333 2211236547896f 4123155478 96a 41236,028 
THt NLKEfcfi* AfcE '*"■?* v 

13 22 it Hi 66 98 87 75 63 32 10 33 22 4# 6% 68 77 96 #S ti 41 

23 33 22 11 23 65 47 89 65 41 23 65 54 78 96 64 12 36 i 

14360 IS THE TOTAL OF THE 26 N0HBE8S 6* THE CARO 

30 21445 6 69 98 774666 32214465666666 233 665222144455 663325666699 88566665<*778 654.887 629 
THE NCI'SER^ 4f!| 

21 446 6e9 987 746 663 221 445 666 60S 523 366 522 214 445 566 332 556 669 988 
566 655.477 88a 488 762 t '*■ : ^ \ v * 4 * ,■ ■ -k i *. Wi-* 



INILGEK CAHO (8) *lN(7¥) * TOTAL, 

/' . 4 , . v r JfcA V jji£ i 

CARD is dimensioned 8 to receive the 79 characters in 

nimwM-ip valnpc nf the innut items. 




columns^ 


?/*eApl5.|ITKE»f#K0/ 

11 FOHMAT(II»7A10»A9) 

' _. . K 

the first column of the card is read 
array CARD under A format; so they t 


>* 7 ’ *U . ~V ^ 
; . a*: c$» " 

than zero and less than or equal to three. 

-.vs-*; *>/. Uil't t& i %-.*■* ■■ T ■. , • 

■ X xj * - * s,,. »'</■*> ■ ■■ 

' *• * * - ' „ 

^ . .3 5- :«*a 


KET»KAXatl»MlN«<K£Y.3>) 


TOTAL»0 


004lI*l»N 


Tt)TAL a TOTAL*lN(I> 


13840 IS THE TOTAL OF THE 2b NUKiEPS QK THt CARD _ _ . 

35566663227666552332214455666996877655222144455611223303324456669988774558898030 

THE HUHEERS ARE * , ^ ;. : , „ M* ; 

566 666 322 366 655 233 221 445 566 699 887 .’65 5*2 214 445 »61 122 r39'«2 445 
let 998 877 455 889 603 /■"* \ /■ f ' 4 > 

370 IS THE TOTAL OF THE 79 NUhiiPS OK Ttfe CAPO " { : ‘ * C 

1023456668889988778996555444455616583322211123802333866991888522211444477788a031 

THE NLHEERS ARE - . rr . , 

023466668 .8 89 9 8 . $ T 7 8 9 9 

5 6 5 4 4 4 4 5 5 6 8 6 5 I 2 ! ! i . = 

J1J33C 2 333 3 66 % 98 5 u >8' 9' 


5 4'.■ t r '• '-;;v/ r ' ■■-;'i' ; 

1F(EOF<^>*NE.O)$TOP 

: — 

Tests fct the end ofdata in which case the 


Adds up to correct number of items and leaves the total in TOTAL. 
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WRITEI6.12) TOT AL.N.KEY,CARD.<IN(I>.1= 1»N> 

12 FORMAT(/Io.20H IS THE TOTAL OF THE .13.20H NUMBERS ON THE CARO/ 
112.7A10.A9/16H THE NUMBERS ARE/(20I4)> 

Outputs the results. 

OOTOIO 

Goes back to process the next card. 

PROGRAM PASCAL 

Program PASCAL produces a table of binary coefficients (Pascal’s triangle). 

Features: 

Nested DO loops 
DATA statement 
Implied DO loop 

INTEGER L(11) 

1 , defined as an 11-element integer array. 


DATA L(11) /1/ 

The DATA statement stores the value 1 in the last element of the array L. When the program is executed 
L( 11) has the initial value 1. 

PRINT 4,(1,1=1,11) 

This statement prints the headings. The implied DO loop generates the values 1 through 11 for the column 
headings. 


PRINT 3,(L(J),J=K,11) 

This is a more complicated example of an implied DO loop. The index value .1 is used as a subscript instead 
of being printed. The end of the array is printed from a variable starting position. The 1, which appears on 
the diagonal in the output is not moving in the array; it is always in L(1 1); but the starting point s 
moving. 


II-1-22 


60305600 B 


DO 2 1-1,10 
K-ll-1 


/ These statements illustrate the technique of going backwards through an array. As I goes from 1 to 10, K 

goes from 10 to 1. The increment value in a DO statement must be positive, therefore, 

DO 2 1-1,10 
K-il-I 

provides a legal method of writing the illegal statement DO 2 K= 10,1,-1. 


DO 1 J=K,10 
1 L(J)=L(J)+L(J+1) 


This inner DO loop generates the line of values output by statement number 2. When control reaches 
statement 2, the variable J can be used again because statement number 2 is outside the inner DO loop. 
However, if I were used in statement 2 instead of J, the statement 2 PRINT 3,(L(I),I*=K,11) would be an 
error. Statement 2 is inside the inner DO loop and would change the value of the index from within the 
DO loop. Changing the value of a DO index from inside the loop is illegal and will cause a fatal error or a 
never ending loop. 


PROGRAM PASCAL 


10 


15 


C 

4 


PROGRAM PASCAL (OUTPUT) 
INTEGER L(11) 

0ATA L(11) ✓!/ 


1 

2 

3 


PRINT 4, (1,1*1,11) 

FORMA T (44M1C0MBINATI0NS OF M 
*1115) 

DP 2 I = 1,10 
K=ll-I 
L(K)= 1 

DC 1 J * K, 10 
L(J)=L(J)*L(J+1) 

PRINT 3, (l(J),J*K»11) 

FORMA T(1115) 


THINGS TAKEN N AT 


A TIME.//20X,3H-N-/ 


STOP 

END 


COMBINATIONS OF 

M. THINGS 

TAKEN 

N AT 

A TIME 

• 




-N- 





1 

2 

3 

4 

5 

6 

7 

8 

9 

2 

1 








3 

3 

1 







4 

6 

4 

1 






£ 

10 

10 

6 

1 





6 

15 

20 

15 

6 

1 




~7 

i 

21 

35 

35 

21 

7 

1 



8 

28 

56 

70 

56 

26 

8 

1 


9 

36 

64 

126 

126 

84 

36 

9 

1 

10 

45 

120 

210 

252 

210 

120 

45 

10 

11 

55 

165 

330 

462 

462 

330 

165 

55 
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PROGRAM X 


Program X references a function EXTRAC which squares the number passed as an argument. 

Features: 

Referencing a function 
Function type 

Program X illustrates that a function type must agree with the type associated with the function name in 
the calling program. 


K=EXTRAC(7) 

Since the first letter of the function name EXTRAC is E. the function is implicitly typed real. EXTRAC is 
referenced, and the value 7 is passed to the function as an argument. However, the function subprogram 
explicitly defined integer, INTEGER FUNCTION EXTRAC(K). and the conflicting types produce errone¬ 
ous results. 

The argument 7 is integer which agrees with the type of the dummy argument K in the subprogram. The 
result 49 is correctly computed. However, when this value is returned to the calling program, the integer 
value 49 is returned to the real name EXTRAC; and an integer value in a real variable produces an 
erroneous result (refer to program EQUIV). 

T his problem arises because the programmer and the compiler regard a program from different viewpoints. 
The programmer often considers his complete program to be one unit whereas the compiler treats each 
program unit separately. To the programmer, the statement 

INTEGER FUNCTION EXTRAC(K) 

defines the function EXTRAC integer. The compiler, however, compiles integer function EXTRAC and the 
main program separately. In the subprogram EXTRAC is defined integer, in the main program it is defined 
real. Information which the main program needs regarding a subprogram must be supplied in the mam 
program - in this instance the type of the function. 

There is no way for the compiler to determine if the type of a program unit agrees with the type of the 
name in the calling program; therefore, no diagnostic help can be given for errors of this kind. 

The second time, the program was run with EXTRAC declared integer in the calling program, and the correct result 
was obtained. 
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PROGRAM X (OUTPUT) 

WITH EXTRAC DECLARED INTEGER THE RESULT SHOULD 8E 49* OTHERWISE IT 
WILL BE ZERO 
K « EXTRAC(7) 

PRINT 1* K 
1 FORMAT (lHltlS) 

STOP 

END 


INTEGER FUNCTION EXTRAC <K) 

EXTRAC * K*K 

RETURN 

END 


Output: 



0 

FROGRAH 

X 

FROGRAM > (OUTPUT) 


C 

HITH EXTRAC DECLAREO 


c 

HILL eE ZERO 
INTEGER EXTRAC 

b 


K = E XTRAC < 7) 

FRINT 1, K 


1 

FORMAT (INI,15) 

STOP 

ENO 


INTEGER THE RESULT SHOULD 8E ^9, OTHERWISE IT 


FUNCTION EXTRAC 

INTEGER FUNCTION EXTRAC (K) 

EXTRAC = K*K 

RETURN 

ENO 


Output: 
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PROGRAM VARDIM 


Program VARDIM illustrates the use of variable dimensions to allow a subroutine to operate on arrays r: 
differing size. 

Features: 

Passing an array to a subroutine as a parameter. 

A subroutine name used as a parameter passes the address of the beginning of the array and no 
dimension information. 


COMMON X(4,3) 

Array X is dimensioned (4,3) and placed in common. 


REAL Y(6) 

Array Y dimensioned (6) is explicitly typed real. It is not in common. 


CALL IOTA(X,12) 

The subroutine IOTA is called. The first parameter to IOTA is array X, and the second parameter is iht 
number of elements in that array, 12. The number of elements in the array rather than the dimensions (4,3 

is used which is legal. 

SUBROUTINE IOTA(A,M) 

DIMENSION A(M) 

Subroutine IOTA has variable dimensions. Array A is given the dimension M. Whenever the main prograr 
calls IOTA, it can provide the name and the dimensions of the array; since A and M are dummy argn 
ments, IOTA can be called repeatedly with different dimensions replacing M at each call. 


CALL IOTA(X, 12) 

When IOTA is called by the main program, the actual argument X replaces A; and 12 replaces M. 
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DO 1 1 = 1,M 
1 A(I)=I 

The DO loop places the numbers 1 through 12 in consecutive elements of array X. 


CALL IOTA(Y,6) 

When IOTA is called again, Y replaces A and 6 replaces M; and numbers 1 through 6 are placed in 
consecutive elements of array Y. Notice the type of the arguments in the calling program agree with the 
type of the arguments in the subroutine. X and A are real, 12 and M are integer. 

Names used in the subroutine are related to those in the calling program only by their position as argu¬ 
ments. If a variable I was in the calling program, it would be completely independent of the variable I in 
the subroutine IOTA. 

The WRITE statement outputs the arrays X and Y. 


FRCGRAh VARDIM 

PROGRAM VARDIM (OUTPUT»TAPE6*OUTPUT) 

COMMON X(A,3> 

REAL Y<t> 

CALL ICT A(X 1 121 

5 CALL IC'TA(Y,6> 

WRITE (fc.IGG) X,Y 

100 FORMAT (*1ARRAY X * *,12F6.Q/*CARRAY Y = *6F6.0> 
STOF 
ENO 


SUEPOLTINE IOTA 



C 

C 


1 


SUBROUTINE IOTA <A,M> 

IOTA STORES CONSECUTIVE INTEGERS IN EVERY 

STARTING AT 1 

DIMENSION A(Ml 

DO 1 I * i»H 

A(I)= I 

RETURN 

ENO 


ELEMENT CF THE ATTAY A 


Output: 

ARRAY X 
ARRAY Y 


1 . 2 . 

1 . 2 . 


3. A. 5. 6, 7. 8. 9. 10. 11. 12. 

3. A. 5. 6. 
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PROGRAM VARDIM2 


VARDIM2 is an extension of program VARDIM. Subroutine IOTA is used: in addition, another subrou¬ 
tine and two functions are used. 

Features: 

Multiple entry points 
Variable dimensions 
EXTERNAL statement 

COMMON used for communication between program units 

Passing values through COMMON 

Use of library functions ABS and FLOAT 

Calling functions through several levels 

Passing a subprogram name as an argument 

Program VARDIM2 describes the method of a main program calling subprograms and subprograms 
calling each other. Since the program is necessarily complex, each subprogram is described separately 
followed by a description of the main program. 


SUBROUTINE IOTA 

SUBROUTINE IOTA is described in program VARDIM. 

SUBROUTINE SET 

SUBROUTINE SET(A,M,V) places the value V into every element of the array A. The dimension of A is 
specified by M. 

Subroutine SET has an alternate entry point INC. When SET is entered at ENTRY INC. the value V is 
added to each element of the array A. The dimension of A is specified by M. 

The DO loop in subroutine SET clears the array to zero. 
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FUNCTION AVG 


This function computes the average of the first J elements of common. J is a value passed by the main 
program through the function PVAL. 

This function subprogram is an example of a main program and a subprogram sharing values in common. 
The main program declares common to be 12 words and FUNCTION AVG declares common to be 100 
words. Function AVG and the main program share the first 12 words in common. Values placed in 
common by the main program are available to the function subprogram. 

The number of values to be averaged is passed to FUNCTION PVAL by the statement AA = PVAL(12,AVG) and 
function PVAL passes this number to function AVG: PVAL = ABS(WAY(SIZE)) 


COMMON A(100) 

Function AVG declares common 100 so that varying lengths (less than 100) can be used in calls. In this 
instance, only 12 of the 100 words are used. 


DO 1 I-l.J 
1 AVG=AVG+A(I) 

The DO loop adds the 12 elements in common. 

AVG=AVG/FLOAT(J) 

This statement finds the average. The library function FLOAT is used to convert the integer 12 to a floating 
point (real) number to avoid mixed mode arithmetic. 

The average is returned to the statement PVAL = ABS(WAY(S1ZE)) in function PVAL. 
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FUNCTION PVAL 


Function PVAL references a function specified by the calling program to return a value to the calling 
program. This value is forced to be positive by the library function ABS. 

The main program first calls PVAL with the statement A A = PVAL( 12, AVG), passing the integer value 12 
and the function AVG as parameters. 

INTEGER SIZE 

PVAL declares SIZE integer - the type of the argument in the main program (integer 12) agrees with the 
corresponding dummy argument (SIZE) in the subprogram. 


PVAL=ABS(WAY(SIZE)) 

The value of PVAL is computed. This value will be returned to the main program through the function 
name PVAL. Two functions are referenced by this statement; the library function ABS and the user written 
function AVG. The actual arguments 12 and AVG replace SIZE and WAY. 


PVAL“ABS(AVG(12)) 

Function AVG is called, and J is given the value 12. The average of the first 12 elements of common are 
computed by AVG and returned to function PVAL. Library function ABS finds the absolute value of the 
value returned by AVG. 


AM=FVAL(12,MULT) 

In this statement in the main program, PVAL is referenced again. This time the function MULT replaces 
WAY. 

FUNCTION MULT 

MULT multiplies the first and twelth words in COMMON and subtracts the product from the average 
(computed by the function AVG) of the first J/2 words in common. 


COMMON ARRAY(12) 

Common is declared 12; MULT shares the first 12 words of common with the main program. 
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MULT=ARRAY(12)* ARRAY(1)-AVG(J/2) 


The twelfth and first element in common are multiplied and the average of J/2 is subtracted. This is an 
example of a subprogram calling another subprogram - the function AVG is used to compute the average. 


MAIN PROGRAM - VARDIM2 

The main program calls the subroutines and functions described. 


COMMON X(4,3) 

Twelve elements in the array X are declared to be in common. 


REAL Y(6) 

The real array Y is dimensioned 6. 


EXTERNAL MULT, AVG 

Function names MULT and AVG are declared EXTERNAL. Before a subprogram name is used as an 
argument to another subprogram, it must be declared in an EXTERNAL statement in the calling program. 
Otherwise it would be treated by the compiler as a variable name. 


CALL SET(Y,6,0. ) 

Subroutine SET is called. The arguments (Y,6,0.) replace the dummy arguments (A,M,V). 


DIMENSION Y (6) 

DO 1 I = 1,6 
1 Y(I) = 0.0 

The array Y is set to zero. The NAMELIST output shows the 6 elements of Y contain zero. 
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CALL IOTA(X,12) 


Subroutine IOTA is called. X and 12 replace the dummy arguments A and M 


DIMENSION X (12) 
DO 1 1-1,12 
1 1(1) - I 


the value of the subscript is placed in each element of the array X. Program VARDIM output shows the 
value of X is 1 through 12. 


CALL INC(X,12,-5.) 

Subroutine SET is called, this time through entry point INC. The arguments (X. 12.-5.) replace the dummy 
arguments (A.M.V) 


DO 2 1-1,12 
2 X(I) = X(I) + -5. 

-5. is added to each element in the array X. Program VARDIM2 output shows X is now -4.-3.-2. 

-1,0,1,2,3,4,5,6.7 


A/.-PVAL (12 , AVG ) 


unction PVAL is called and its value replaces AA. 

AM-PVAL(12,MULT) 

Function PVAL is called again with different arguments and the value replaces AM. 


PROGRAM VARDIM2(OUTPUT,TAPE6«OUTPUT,OEBUG«OUTPUT> 

C THIS PROGRAM USES VARIABLE DIMENSIONS ANO MANY SUBPROGRAM CONCEPTS 
COMMON X(4,3) 

REAL Y(6) 

EXTERNAL MULT, AVG 
NAMELIST/V/X,Y»AA,AM 
CALL SET<>,6,0*) 

CALL I0TA(X»12) 

CALL INC(X,12,-5 •) 

AA«PVAL(12,AVG) 

AMsFVAL(12,MULT) 

WRITE(6,V) 

STOP 

END 
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SUBROUTINE SET (A,M,V) 

C SET PUTS THE VALUE V INTO EVERY ELEMENT OF THE ARRAY A 
DIMENSION ACM) 

OOiI*i,M 

1 A(I)=0.0 
C 

ENTRY INC 

C INC ADOS THE VALUE V TO EVERY ELEMENT IN THE ARRAY A 
DO 2 I * i,M 

2 A (I) * A (I) + V 
RETURN 

ENO 


SUBROUTINE IOTA (A,M) 

IOTA PUTS CONSECUTIVE INTEGERS STARTING AT 1 IN EVERY ELEMENT OF 
THE ARRAY A 
DIMENSION A(M) 

0011*1, M 
1 A(I) = I 
RETURN 
ENO 


FUNCTION PVAL(SIZE, WAY) 

PVAL CCMPUTES THE POSITIVE VALUE OF WHATEVER REAL VALLE IS RETURNED 
BY A FUNCTION SPECIFIED WHEN PVAL WAS CALLED. SIZE IS AN INTEGER 
VALUE PASSEO GN TO THE FUNCTION. 

INTEGER SIZE 
PVAL*ABS(WAY(SIZE>) 

RETURN 

ENO 


FUNCTION AVG(J) 

C AVG COMPUTES THE AVERAGE OF THE FIRST J ELEMENTS OF CCMMON. 
COMMON A(IDO) 

AVG*0• 

DO 1 I = i,J 
1 AVG*AVG+A(I) 

AVG=A VG/FLOAT (J) 

RETURN 

ENO 
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R MULT F MULTIPLIES L THE ) first and twelth elements of common 
SUBTRACTS FROM THIS THE AVERAGE (COMPUTED 
BY THE FUNCTION AVG) OF THE FIRST J/2 WORDS IN COMMON. 


COMMON ARRAY(12) 

MULT=ARRAY(12)’ARRAY(1)-AVG(J/2) 
RETURN 
E N 0 


sv 

X « -0.4E+01. -0.3E+01, -0.2E*01, -0.1E+01, 0.8, 0.1E*01, 0.2E+01, 9.JE*8t, 0.«»e*01, 

0.6E»01, 0.7E+01, 

Y « 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 

AA * 0.15E*01, 

AH • 0.265E+02, 

(ENO 


AND 


0.5E+01, 
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PROGRAM CIRCLE 


Program CIRCLE finds the area of a circle which circumscribes a rectangle. 

Features: 

Definition and use of both FUNCTION subprograms and statement functions. 

This program has a hidden hug. We suggest you read the text from the start if you intend to find it. 

A programmer wrote the following program to find the area of a circle which circumscribes a rectangle, 
and wrote a function named DIM to compute the diameter of the circle. 



The area of a circle is 7rR\ which is approximately the same as 3.l416/4*Diameter**2. 


p^ugham cikcll (our^cn 

A-4 • 0 

d = j.O 

AvtA=3.141b/4.0*DfM(A,a> **? 
P k 1 iSi T AKtA 

1 f )ki 4A f (GdU • 1 0 ) 

b I JP 

t iiJ 

hJNCTiON UlMU.Y) 

Uli'=bwPT (X*A+Y*Y) 

KclUPN 

t-lU 


Output: 


•7854000000 
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The programmer was completely baffled by the result; he felt the area of a circle circumscribing a rectangle 
12 square inches should be more than .785! He consulted another programmer who quickly pointed out 
that a simple function like DIM should have been written as a statement function. Since FORTRAN 
Hxtended compiles statement functions inline, it would execute much faster because no jump nor return 
jump would he generated by the function. 

The programmer rewrote his program as follows: 

PdUOKAM CIkCLE (OUTPUT) 

L) IM (X * Y ) = SwHT (X*X*Y*Y) 

A = 4 • U 

d = d.O 

A4tA = J. 141 6/4.0*01M (A *8)*^ 

PwiiMT 1* AktA 

1 F'jKMAT (0*20.10) 

srup 

c. iO 


and obtained the correct result. 


When the programmer wrote his function subprogram, he used the same 
name as a library intrinsic function. If the name of an intrinsic function 
is used for a user written function, the user written function is ignored. 
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PROGRAM OCON 


Program OCON illustrates some problems that may occur with octal or Hollerith constants. 

Features: 

Octal Constants in expressions 

The compiler generally treats both octal and Hollerith constants as having no type; therefore, no mode conver¬ 
sion is done when they are used in expressions. If, however, the compiler is forced to assume a type for an 
octal or Hollerith constants, it will treat them as integer. When an expression contains only operands having no 
type, integer arithmetic is used. For example: 

B=10 B+10 B 

The expression is evaluated using integer arithmetic. Furthermore, for subsequent operations, the result of integer 
arithmetic is treated as true integer. Thus, in the above example, the expression on the right is evaluated using 
integer arithmetic; and the integer result is converted to real before the value is stored in B. Comparing the 
values produced in OCON for A and B illustrates this effect. 

With REAL arithmetic whenever the left 12-bits of the computer word are all zeros or all ones, the value of 
that number is zero. (See section HI-4 discussion of Underflow.) This explains why the output value of A from 
OCON is zero. 

C = B+10 B 

REAL arithmetic is used to evaluate the expression; and the octal constant 10B is used without type conversion, 
making its value zero. Note in the output from OCON, the values of B and C are equal. 

D= I + 10 B 

No problem arises in the above expression as it is evaluated with integer arithmetic; then the result is converted 
to REAL and stored in D. 

E= B+ I +1 0 B 

The compiler, in scanning the above expression left to right, encounters the REAL variable B and uses REAL 

arithmetic to evaluate the expression. Again, the octal constant 10B has the REAL value of zero. 

If the expression were written as: 

E=10B+I+B or E=I+10B+B 

The first two terms would be added using integer arithmetic; then that result would be converted to REAL and 

added to B. In this case, the octal constant 10B would effectively have the value eight. 
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This is similar to the mode conversion which occurs in: 

X=Y+3/5 or Z=3/5+Y 

The above expressions would give different values for X and Z. More information on the evaluation of mixed 
mode expressions is in section 1-3, 

F=A,EQ,1 OB 

REAL arithmetic is used to compare the values because A is a type REAL name. The value in A and the 
constant 10B both have all zeros in the leftmost 12 bits; both have value zero for real arithmetic; therefore, 
the value assigned to F is .TRUE. 

To avoid the confusion illustrated in this example, simply use integer names for values that come from octal 
or Hollerith constants or character data that is input using A or R format elements. To illustrate, this program 
was rerun with the names A, B, C, D, and E all as type INTEGER. 

All these examples have used octal constants; however, the same problem occurs with Hollerith especially when 
it is right justified; the following coding illustrates the point: 


REAL ANS 


READ 2, ANS 

2 FORMAT(R3) 

IF(ANS .EQ. 3RNO )PRINT3 

3 FORMAT (^-NEGATIVE RESPONSE*) 


PRINT3 of the logical IF will always be executed independently of information in the data cards. 
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WITH REAL VARIABLES 


5 


10 


PROGRAM OCON(OUTPUT,TAPE6*0UTPUT> 
LOGICAL F 

SOUT 



NAHELIST/OUT/A,B,C,D,E,F 

A= 20 8 

A 

= 

0.0, 

B=10B+10B 

C= B + 10 B 

B 

3 

0.16E+02 

1 = 5 

0= 14-10 B 

C 

= 

0.16E*-02 

£= B+I+10B 

F=A.EQ.77B 

0 

= 

0.l3EfQ2 

WRITE(6,OUT) 

STOP 

E 

= 

0•21E+Q2 

END 

F 

SENO 


T, 


WITH INTEGER VARIABLES 

PROGRAM OC ON(OUTPUT * T APE6=OUTPUTI SOUT 


INTEGER A , B,C,0,£ 

LOGICAL F A = 16, 

NAMELIST/0UT/A»8,C,D »E»F 

5 A=20B B * 16, 

B=10B+1Q8 

C*BflOB C * 24, 

I s 5 

o=inoa d = 13, 

10 E=B«-I*1QB 

F=A.E«.77B E * 29, 

WRITE(6,0UT» 

STOP F * F, 

ENO 


SEND 
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LIST DIRECTED INPUT/OUTPUT 

List directed input/output eliminates the need for fixed data fields. It is especially useful for input since the 
user need not be concerned with punching data in specific columns. List directed input does not require the 
user to name each item as does NAMELIST input. 

Used in combination, list directed input and NAMELIST output simplify program design. Such a program is 
easv to write even for persons just learning the language; knowledge of the FORMAT statemens is not required. 
This facility is particularly useful when FORTRAN programs are being run from a remote terminal. 

Example: 


H2.T10. 

MAP (OFF I 
FTN(K=0> 

LOO. 

7 ^ 9 PKCIGKAM tASY 10 (INPUT,OUTPUT,TAPE5*INPUT,TAHE6:»0UTPUT> 

COMPUTE THE AREA AND RADIUS OF AN INSCRIBED CIRCLE OF ANY TRIANGLE. 

REAL SIDES (3) _ Q . , cfnlre# ,, r , 

EQUIVALENCE(SIDES(11»A)»(SI0ES<2»,8)t(SIDES(3)tCI 

NAMELIST/OUT/S IDES,AREA.RADIUS 
3 READ(5.*)S10ES 

IF(EOF(5).NE.O)STOP 
S=(A*B*C»/2. 

area=sqrt(S* cs-A)* <s-b>• ts-c> > 

KAUlUS=AHEA/S 
WRITE(6.UUT) 

(iOT03 

END 

7/8/9 

3 A S 
6.7.B 
3*1 

4 

5 

6 

12.5321452. 22.4536.25 

6/7/879 


Output; 

SOUT 

SIOES * 0.3E.01. 0.4E*Ui, 0.5E.01* 

AREA * 0.6E.01* 

RADIUS = 0.1E+01, 

SEND 
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SOUT 

SIDES = 0.6E«01t 0•7E♦U1» 0;8E*0H 

AREA = 0.203331&256753NE*02* 

RADIUS = 0.1?3b491673103/E*01i 

SEND 

SOUT 

SIDES = 0.1E*01t 0.1E*U1, 0 • 1 £- * 01 • 

AREA = 0,4330l27018922rf£*00* 

RADIUS = 0>288675134594tli£«00i 

SEND 

SOUT 

SIOES = 0.4E*01* 0.5E*U1, 0»6E*01* 

AREA = 0*99215674164922E*0l« 

RADIUS » 0*1322875655532AE*01» 

SEND 

SOUT 

SIDES * 0.125321452E*02. 0,224536E*02, 0.25E*02. 

AREA = 0.14 0 40422058737t*03, 

RADIUS * 0.468i<i5283d299i*E*0l» 

SEND 

The user may enter the three input values in whatever way is convenient for him; such as: one item per line 
(or card), one item per line with each item followed by a comma, all items on a single line with spaces separ¬ 
ating each item, all items on a line with a comma and several spaces separating each item, or any combination 
of the foregoing. Furthermore, even though all input items are real, the decimal point is not required when 
input value is a whole number. 
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CROSS REFERENCE MAP 


The cross reference map is a dictionary of all programmer created symbols appearing in a program unit, with the pro¬ 
perties of each symbol and references to each symbol listed by source line number. The symbol names are grouped by 
class and listed alphabetically within the groups. The reference map begins on a separate page following the source 
listing of the program and the error dictionary. 

The kind of reference map produced is determined by the R option on the control card: 

R = 0 No map 

R = 1 Short map (symbols, addresses, properties) 

R = 2 Long map (short map, references by line number and a DO-loop map) 

R = 3 Long map and printout of common block members and equivalence classes 
R Implies R = 2 

If R is not specified the default option is R = 1 unless the L option equals 0; then R = 0. 

Fatal errors in the source program will cause certain parts of the map to be suppressed, incomplete, or inaccurate. Fatal 
to execution (FE) and fatal to compilation (FC) errors will cause the DO-loop map to be suppressed, and assigned ad¬ 
dresses will be different; symbol references may not be accumulated for statements containing syntax errors. 

For the long map, it may be necessary to increase field length by lOOO(octal). 

The number of references that can be accumulated and sorted for mapping is: field length minus 20000 (octal) minus 
4 times the number of symbols. For a source program containing 1000 (decimal) symbols, approximately 8000 
(decimal) references can be accumulated with a field length of 50000 octal. 

Examples from the cross-reference map produced by the program which follows are interspersed with the general 
format discussions. 

The source program and the reference maps produced for both R = 1 and R = 3 follow. A complete set of maps for 
R = 2 is not included, but samples are shown with the discussion. 

On the tollowing pages, some addresses will differ because they were run on an earlier version of the com¬ 
piler. 

Tire new header line that appears at the top of each page of compiler output contains: the program unit 
type, the compiling machine, the target machine, control card options, version and mod-leve! of the comniier 
data. time, and page number. 


60305600 D 


III-1-1 


SOURCE PROGRAM 


Main Program 


PROGRAM MAPS 


5 


100 


10 


1 

2 


15 


74/74 OPT*l 


FTN 4.1»REL #9/26/73 1B.22.52. 


PROGRAM MAPS 

1 (INPUT,OUTPUT,TAPE5=INPUT,TAPE6=0UTPUT> 

INTEGER SIZE1, SI, SIZE2, S2 ,ST RAY 

EQUIVALENCE<SIZE1,S1>,(SIZE2.S2) 

NAMEL1ST/PARAMS/SIZE1,SIZE 2 
OATA S1,S2/12,12/ 

REA D( 5 , PAR AMS) 

URTT- (6.PARAMS) 


PRINT 1 

FORMAT(*0SAMPLE PROGRAM TO 
CALL PASCAL(SI) 

PRINT 2 

FORMA T (* OTHE FOLLOWING WILL 
CALL NOHEAO <S2> 


ILLUSTRATE THE VARIOUS 


HAVE NO HEADINGS.*) 


STOP 

ENO 


MAPS 005 
MAPS 006 
HAPS 007 
MAPS 008 
MAPS 009 
MAPS 010 
MAPS Oil 
MAPS 012 
MAPS 013 

COMPILER MAPS.*)MAPS OIL 
MAPS 015 
MAPS 016 
MAPS 017 
MAPS 018 
MAPS 019 
MAPS 020 


Block Data Subprogram 


BLOCK OAT A 74/74 OPT-1 

BLOCK DATA 
COMMON/ARRAY/X(22) 
INTEGER X 
DATA X(22)717 
; END 


FTN 4.1AREL #9/26/73 IB.1%.11* 

MAPS 021 
MAPS 022 
MAPS 023 
MAPS 024 
MAPS 025 


Subprogram with 
second entry 


SUBROUTINE PASCAL 74/74 OPT«l 


FTN 6.1AREL #9/26/73 11.26.12. 


5 


10 


Ip 




MAPS 

026 


SUBROUTINE PASCAL(SIZE) 

MAPS 

027 


INTEGER L (22) ,SIZE 

MAPS 

028 


COMMON/ARRAY/L 

MAPS 

029 

4 

FORMAT (44HOCOMBINATIONS OF M THINGS TAKEN N AT 

A TIME.//20X,3H-N-/MAPS 

MAPS 

030 

031 


$2216) 

MAPS 

032 


ENTRY NOHEAO 

MAPS 

033 


M= MIN 0(21,NAX0(2,SIZE-1)) 

MAPS 

034 


D02I-1» M 

MAPS 

035 


K= 2 2- I 

MAPS 

036 


L ( K) 1 1 

MAPS 

037 


OOlJ= K,21 

MAPS 

038 

1 

L(J)=L <J> *L(JH> 

MAPS 

039 

2 

PRINT 3,<L(J),J = K,22) 

MAPS 

040 

3 

FORMA T(2216) 

MAPS 

041 


RETURN 

MAPS 

042 


END 


7/8/5 in column 1. 


Namelist data 


SPARAMS 

SIZE2 = 7, 

SEND 

6/7/S/9 in column 1. 
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R=1 MAPS 


PROGRAM HAPS CDC 6600 FTH V4.0-P310 OPT*l 07/19/72 08.13.A0. 

SYMBOLIC REFERENCE MAP <R»1> 


ENTRY POINTS 
6102 HAFS 


VARIABLES 

SN TYPE 

RELOCATION 

4167 

SIZE1 

INTEGER 


4166 

STRAY 

INTEGER 

•UNDEF 

4170 

S2 

INTEGER 



6170 SIZE2 INTEGER 

6167 SI INTEGER 


FILE NAMES MODE 

0 INPUT 


2036 OUTPUT FMT 


TAPES NAME 2036 TAPE6 


EXTERNALS 

NOHEAD 


TYPE 


ARGS 

1 


PASCAL 1 


NAMELISTS 

P ARAMS 


STATEMENT LABELS 
6165 1 FMT 


6157 2 FMT 


100 INACTIVE 


STATISTICS 

PROGRAM LENGTH 75B 61 

BUFFER LENGTH 60763 2106 


BLOCK CATA CDC 6600 FTN V6.0-P310 OPT»l 07/19/72 06.13.60. 

SYMBOLIC REFERENCE MAP <R*1> 


VARIABLES SN TYPE 
0 X INTEGER 


RELOCATION 
ARRAY ARRAY 


COMMON BLOCKS LENGTH 
ARRAY 22 


STATISTICS 

PROGRAM LENGTH 06 0 

COMMON LENGTH 26B 22 


SUBROUTINE PASCAL CDC 6600 FTN V6.0-P310 OPT*l 07/19/72 06.13.61. 

SYMBOLIC REFERENCE MAP <R*1> 


ENTRY POINTS 
26 NOHEAD 


PASCAL 


VARIABLES 

111 I 
113 K 

112 M 


SN TYPE 
INTEGER 
INTEGER 
INTEGER 


RELOCATION 


116 J INTEGER 

0 L INTEGER ARRAY ARRAY 

0 SIZE INTEGER F.P. 


FILE NAMES MODE 

OUTPUT F FT 


INLINE FUNCTIONS TYPE ARGS 

MAXO INTEGER 0 INTRIN 


MINO INTEGER 0 INTRIN 


STATEMENT LABELS 

0 1 0 2 
72 6 FMT 


107 3 FMT 


COMMON BLOCKS LENGTH 
ARRAY 22 

STATISTICS 

PROGRAM LENGTH 1176 79 

COMMON LENGTH 26B 22 


NAME 
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R=3 MAPS 


PROGRAM MAPS 


CDC 660® FTN V4.Q-P31Q OPT*l 07/19/72 08.13.49. 


SYMBOLIC REFERENCE MAP <R*3> 


REFERENCES 


ENTRY POINTS 
4102 MAPS 

VARIABLES SN 
4167 SIZE1 
4170 SI2E2 

4166 STRAY * 

4167 SI 
4170 S2 

FILE NAMES 
0 INPUT 
2036 OUTPUT 
0 TAPE5 
2036 TAFE6 

EXTERNALS 

NCHEAO 

PASCAL 


DEF LINE 
1 

TYPE 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 

MODE 

FMT 
NAME 
NAME 

TYPE ARCS 
1 
1 


RELOCATION 


WRITES 

READS 

WRITES 

REFERENCES 

14 

11 


REFS 3 

REFS 3 

REFS 3 

REFS 3 

REFS 3 


9 12 

7 

8 


* UNDEF 


4 S 

4 5 

4 11 OEFIWEO 

4 14 OEFIWEO 


NAMELISTS DEF LINE 

PARAMS 5 


REFERENCES 

7 8 


STATEMENT LABELS D£F LINE 

4145 1 FMT 10 

4157 2 FMT 13 

0 100 INACTIVE 7 


REFERENCES 

9 

12 


EQUIV CLASSES 
SIZE1 
SI2E2 


- BIAS NAME (LENGTH 
0 SI Ci> 

0 S2 Cl) 


STATISTICS 

PROGRAM LENGTH 75B 61 

BUFFER LENGTH 407GB 210# 


missing for R-2 map 


31CCK OATA 

SYMBOLIC REFERENCE HAP <R«3> 


COC 6600 FTN Y4.0-PS10 OPT«i 07/10/72 00.13.SO. 


VARIABLES SN TYPE 

0 X INTEGER 

-ONHON BLOCKS LENGTH 
ARRAY 22 


RELOCATION 

ARRAY ARRAY REFS 


3 DEFINED 


MEMBERS - BIAS NAME(LENGTHI 
0 X <22> 


missing for R=2 map 


4 


STATISTICS 

PROGRAM LENGTH OB 0 

COMMON LENGTH 260 22 

SUBROUTINE PASCAL 


COC 6600 FTN V4.0-P310 OPT*l ®7/19/72 98.13.51. 


SYMBOLIC REFERENCE MAP IR«3) 


ENTRY POINTS 
26 NOHEAO 
2 PASCAL 


OEF LINE 
7 
1 


REFERENCES 

16 


VARIABLES 

111 I 

114 J 
113 K 
0 L 

112 M 

0 SIZE 


SN TYPE 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 


RELOCATION 


ARRAY ARRAY 


REFS «♦ 10 

REFS 3*13 1* 

FEES 11 12 

REFS 2 3 

REFS 9 DEFINED 

REFS 2 *» 


OEFIME0 

4 

9 

DEFINED 

12 

14 

14 

OEFINEO 

10 

2*13 

14 

OEFINEO 

8 



8 

OEFINEO 

1 


FILE NAMES MODE 

OUTPUT FHT 


WRITES •* 


INLINE FUNCTIONS TYPE ARGS OEF LINE REFERENCES 

MAXO INTEGER 0 INTRIN J 

NINO INTEGER 0 INTRIN « 


STATEMENT LABELS 
D 1 
0 2 

107 3 FMT 

72 4 FMT 


OEF LINE 

REFERENCES 

13 

12 

14 

9 

15 

14 

5 

4 


14 


LOOPS LABEL INOEX 

20 * I 

43 2 * I 

50 1 J 

COMMON BLOCKS LENGTH 
ARRAY 22 


FROH-TO LENGTH PROPEBTIES 

4 48 

Q 14 206 

12 13 2B INSTACK 


MEMBERS - BIAS NAME (LENGTH) 
0 L < 22 ) 


EXT REFS 
EXT REFS 


NOT INNER 


missing for R=2 map 


STATISTICS 

PROGRAM LENGTH 
COMMON LENGTH 


1178 

266 


79 

22 


11 


13 
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OUTPUT 


SPARAMS 

SI2E1 * 12, 

SIZE2 = 7, 

SE NO 

SAMPLE PROGRAM TO ILLUSTRATE THE VARIOUS COMPILER MAPS. 
COMBINATIONS OF M THINGS TAKEN N AT A TIME. 


-N- 


1 

2 

3 

4 

5 

6 

7 

6 

9 

10 

11 

2 

1 










3 

3 

1 









4 

6 

4 

1 








5 

10 

10 

5 

1 







6 

15 

20 

15 

6 

1 






7 

21 

35 

35 

21 

7 

1 





8 

28 

56 

70 

56 

28 

8 

1 




9 

36 

84 

126 

126 

84 

36 

9 

1 



10 

45 

120 

210 

252 

210 

120 

45 

10 

1 


11 

55 

165 

330 

462 

462 

330 

165 

55 

11 

1 

12 

66 

220 

495 

792 

924 

792 

495 

220 

66 

12 

FOLLOWING 

HILL 

HAVE 

NO HEAOINGS. 






2 

1 










3 

3 

1 









4 

6 

4 

1 








5 

10 

10 

5 

1 







e 

15 

20 

15 

6 

1 






7 

21 

35 

35 

21 

7 

1 
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General Format 


Each class of symbol is preceded by a subtitle line that specifies the class and the properties listed. 

Formats for each symbol class are different, but printouts contain the following information: 

The octal address associated with each symbol relative to the origin of the program unit. 

Properties associated with the symbol 

List of references to the symbol for R=2 and R=3 

All line numbers in the reference list refer to the line of the statement in which the reference occurs. Multiple refer¬ 
ences in a statement are printed as n*l where n is the number of references on line 1. 

All numbers to the right of the name are decimal integers unless they are suffixed with B to indicate octal. 

Names of symbols generated by the compiler (such as system library routines called for input/output) do not appear 
in the reference map. 

ENTRY POINTS 

Entry point names include program and subprogram names and names appearing in ENTRY statements. The format 
of this map is: 



ENTRY POINTS DEFINITION 

addr name def 

REFERENCES 

ref 

addr 

Relative address assigned to the entry point. 


name 

Entry point name as defined in FORTRAN source. 


def 

Line number on which entry point name is defined (PROGRAM statement, SUBROUTINE 
statement, ENTRY statement, etc.). (Not on R=1 maps.) 

ref 

In subprograms only, line number of RETURN statements. 

(Not on R=1 maps.) 


R=1: 


ENTRY POINTS 
26 NOMEAO 


. 2 PASCAL 


R=2 and R=3: 

ENTRY POINTS DEE LINE REFERENCES 

26 NOHEAO 7 16 

2 PASCAL 1 
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VARIABLES 


Variable names include local and COMMON variables and arrays, formal parameters, RETURNS names, and for 
FUNCTION subprograms, the defined function name when used as a variable. The format of this map is: 

VARIABLES SN TYPE RELOCATION 

addr name * type prop block refs 

Relative address assigned to variable name. If name is a member of a COMMON block, 
addr is relative to the start of block. 

Variable name as it appears in FORTRAN source listing. Variables are listed in alphabeti¬ 
cal order. 

SN = stray name flag. (No entry appears under SN when R=1 is specified.) Variable names 
which appear only once in a subprogram are indicated by * under the SN headline. Such 
variable names are likely keypunch errors, misspellings, etc. In the long map, DO loops where 
the index variable is not referenced will cause the index variable to be flagged as a (legal) stray 
name. 

type LOGICAL, INTEGER, REAL, COMPLEX, DOUBLE, or ECS. 

Gives the arithmetic mode associated with the variable name. RETURNS appears if name 
is a RETURNS formal parameter. 

prop Properties associated with variable name are printed by keywords in this column: 

♦UNDEF Variable name has not been defined. A variable is defined if any of the 
following conditions hold: 
name appears in a COMMON or DATA statement. 

is EQUIVALENCED to a variable that is defined, 
appears on the left side of an assignment statement at the outermost 
parenthesis level. 

is the index variable in a DO loop. 

appears as a stand alone actual parameter in a subroutine or function 
call. 

appears in an input list (READ, BUFFERIN, etc.). 

Otherwise, the variable is considered undefined. However, variables which 
are used (in arithmetic expressions, etc.) before they are defined (by an 
assignment statement or subprogram call) are not flagged. 

ARRAY Variable name is dimensioned. 

♦UNUSED name is an unused formal parameter. 

block Name of COMMON block in which variable name appears. If blank, name is a local variable. 

/ / indicates name is in blank COMMON. 

F.P. indicates name is a formal parameter. 


addr 


name 


* 
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refs 


(Does not appear in short map, R=l.) 

References and definitions associated with variable name are listed by line number, begin¬ 
ning with the following in-line subheadings: 

REFS All appearances of name in declarative statements or statements where the 

value of name is used. 

DEFINED All appearances of name where its value may be altered such as in DATA, 
ASSIGN, READ, ENCODE, or DECODE, BUFFER IN, assignment state¬ 
ments, or as a DO loop index. 

10 REFS All appearances of name in use as a variable file name in I/O statements. 


R~1: This map form uses a double column format to conserve space. Headings appear only on the first columns. 


VARIABLES 
111 I 

113 K 

SN TYPE 

INTEGER 

INTEGER 

RELOCATION 

114 

I 

J 

L 

INTEGER 

INTEGER 

ARRAY 

ARRAY 

112 H 

INTEGER 


0 

SIZE 

INTEGER 


F.P. 


and R 

=3: 









VARIABLES 

SN TYPE 

RELOCATION 







ill 

I 

INTEGER 


REFS 

4 

It 

DEFINED 

4 

9 

114 

J 

INTEGER 


REFS 

3*13 

14 

DEFINE 0 

12 

14 

113 

K 

INTEGER 


REES 

11 

12 

14 

DEFINED 

10 

0 

L 

INTEGER 

ARRAY ARRAY 

REFS 

2 

3 

2*13 

14 

oefined 

112 

H 

INTEGER 


REFS 

9 

DEFINED 

8 



0 

SIZE 

INTEGER 

F.P. 

REFS 

2 

4 

8 

DEFINED 

1 
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FILE NAMES 


File names include those explicitly defined in the PROGRAM header card as well as those implicitly defined (in 
subprograms) through usage in I/O statements. The format of this map is: 

FILE NAMES MODE 

addr name mode refs 

addr Relative address of the file information table (FIT) associated with the file name. The 

file’s buffer starts at addr+34B This column appears only in main programs (where the 
file is actually defined). In subprograms, this column is blank. 

name Name of the file as defined in PROGRAM statement or implied from usage in I/O state¬ 

ments. For example, in a subprogram, WRITE(2) implies a reference to file TAPE2. 

mode Indicates the mode of the file, as implied from it usage. One of the following will be 


printed: 

FMT 

Formatted I/O e.g. 

READ(2,901) 

FREE 

List Directed I/O 

READ(2,*) 

UNFMT 

Unformatted I/O 

READ(2) 

NAME 

Namelist Name I/O 

READ(2,NAMEIN) 

BUF 

Buffer I/O 

BUFFER IN(2,0) 

MIXED 

Some combination of the above. 

blank 

Mode cannot be determined. 


refs (Does not appear in short map, R=1.) 

References are divided into three categories by in-line subheadings: 

READS followed by list of line numbers referencing file name in input operations. 

WRITES line numbers of output operations on file name. 


MOTION line numbers of positioning operations (REWIND, BACKSPACE, ENDFILE) 
on file name. 


R=1: 


^^O^INFUT M00E 2036 OUTPUT FMT 0 TAPES NAME 2036 TAPE6 NAME I 


R=2 and R=3: 


FILE NAMES MODE 

0 INPUT 

2036 OUTPUT FMT WRITES 9 12 

0 TAPES NAME READS 7 

2036 TAFE6 NAME WRITES 6 


When a variable is used as a unit number in an I/O statement the following message is printed: 


VARIABLE USED AS FILE NAMES, SEE ABOVE 
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EXTERNAL REFERENCES 


External references include names of functions or subroutines called explicitly from a program or subprogram as we 
as names declared in an EXTERNAL statement. Implicit external references, such as those called by certain FORTRAN 
source statements (READ, ENCODE, etc.) are not listed. The format of this map is: 

EXTERNALS TYPE ARGS REFERENCES 

name type args prop refs 


Name defined EXTERNAL as it appears in source listing. 

Applies to externals used as functions. Possible keywords are: 

REAL, INTEGER, COMPLEX, DOUBLE, LOGICAL 
Gives the arithmetic mode of external function. 

NO TYPE No specific arithmetic mode defined. 

Applies to certain library functions listed as externals in T mode. (T mode 
is implied when OPT=0 or D mode is selected.) 

This column will be blank for all externals used as subroutines in CALL statements. 


args Number of arguments in call to external name. 

prop Special properties associated with external name: 

p p name is a formal parameter (applies only for references within a program). 

LIBRARY name is a library function called by value. In T compile modes, no LIBRARY 

entries appear since all references to library functions (SIN, COS, etc.) will be 
by name. (OPT=0 or D mode automatically implies T mode.) 

refs Line number on which name is referenced. (Does not appear in short map, R-l.) 


R=1: 


EXTERNALS 

NOHEAD 


TYRE 


ARGS 

1 


PASCAL 1 


R=2 and R=3: 

EXTERNALS TYPE ARGS REFERENCES 

NOHEAO 1 14 

PASCAL 1 11 
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INLINE FUNCTIONS 


Inline functions include names of intrinsic and statement functions appearing in the subprogram. The subtitle line is: 

INLINE FUNCTIONS TYPE ARGS DEF LINE REFERENCES 

name mode args ftype def refs 

name Symbol name as it appears in the listing. 

mode Arithmetic mode, NO TYPE means no conversion in mixed mode expressions. 


args Number of arguments with which the function is referenced, 

ftype INTRIN Intrinsic function. 

SF Statement function. 

def Blank for intrinsic functions; the definition line for statement functions, 

refs Lines on which function is referenced. 


R=1: 


INLINE FUNCTIONS TYPE »PCS 

HUXO INTEGER 0 INTRIN 


NINO INTEGER 0 INTRIN 


R=2 and R=3: 

INLINE FUNCTIONS TYPE »RGS OEF LINE REFERENCES 

MUO INTEGER • INTRIN » 

NINO INTEGER I INTRIN • 


NAMELISTS 


name 

def 

refs 

R=1: 

NAMELISTS 

PARAMS 


NAMELISTS DEF LINE REFERENCES 

name def refs 

Namelist group name as defined in FORTRAN source. 

Line on which namelist is defined. ) 

> (Does not appear in short map.) 

Line numbers of references to name. ; 


R=2 and R=3: 


NRNELISTS OEF LINE REFERENCES 

P*R»NS 5 r 
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STATEMENT LABELS 


The statement label map includes all statement labels defined in the program or subprogram. The format of this map 


STATEMENT LABELS 

addr label type 


DEF LINE REFERENCE 

act def refs 


addr 


Relative address assigned to statement label. Inactive labels will have addr zero 


400 000 will be shown if no address is assigned; usually, a fatal error 
occurred and the final phase of compilation did not take place. 


label 


Statement label from FORTRAN source. Statement labels are listed in numerical order. 


One of the following keywords; 

FMT Statement label is a FORMAT statement. 

UNDEF Statement label is undefined, refs will list all references to this undefined 

label. 

blank Statement label appears on a valid executable statement. 


One of the following keywords ; 

INACTIVE label is considered inactive. It may have been deleted by optimization. 

Terminal statements of a DO loop are inactive unless referenced as the 
object of a transfer of control. Inactive labels will have addr zero. 

NO REFS label is not referenced by any statements. This label may be removed safely 
from the FORTRAN source. 

blank label is active or referenced. 

Line number on which label was defined. (Does not appear in short map.) 

Line numbers on which label was referenced. (Does not appear in short map.) 


R=1: 


STATEMENT LABELS 
0 1 

72 4 PUT 


107 3 FMT 


R=2 and R=3: 


STATEMENT LABELS 
0 1 
0 2 

107 3 FMT 

72 4 FMT 


0EF LINE 

REFERENCES 

13 

12 

14 

9 

15 

14 

5 

4 
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DO-LOOPS 


The DO-loop map includes all DO loops as well as implied DO loops not in DATA statements that appear in the pro¬ 
gram and lists their properties. This map is generated only in the long map (R=2 and R=3). Loops are listed in order 
of appearance in the program. The format of this map is: 

LOOPS LABEL INDEX FROM-TO LENGTH PROPERTIES 
fwa term mf index first-last len prop 

fwa Relative address assigned to the start of loop body. 

term Statement label defined as end of loop, or blank for implied DO-loops in I/O statements. 

mf * Indicates index is materialized (value of index in memory is the current value 

of loop count). 

blank Indicates index is not materialized (index is not used directly and is updated 

in a register only; value in memory will not correspond to current loop count). 

index Variable name used as control index for loop, as defined by DO statement. 

first-last Line numbers of the first and last statements of the loop. 


len 

prop 


Number of computer words generated for the body of the loop (octal). 

Various keyword prints are possible, describing optimization properties of the loop: 

OPT Loop has been optimized. 

INSTACK Loop fits into instruction stack (7 words or less, 6600 onlyt). 

EXT REFS Loop not optimized because it contains references to an external subprogram, 
or it is the implied loop of an I/O statement. 

ENTRIES Loop not optimized because it contains entries from outside its range. 

NOT INNER Loop not optimized because it is not the innermost loop in a nest. 


EXITS Loop not optimized because it contains references to statement labels outside 

its range. 


R=2 and R=3: 


LOOPS 

LABEL 

INOEX 

fROH-TO 

LENGTH 

PROPERTIES 


20 


• I 

4 

46 

EXT 

REFS 

43 

2 

* I 

0 14 

206 

EXT 

REFS NOT INNER 

SO 

1 

J 

12 13 

26 

INSTUCK 



tLoops that fit in the 6600 instruction stack have a maximum length of 7 words and usually run two to three times as 
fast as a comparable loop that does not fit into the stack. 
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COMMON BLOCKS 


The common block map lists common blocks and their members as defined in the source program. The format of this 
map is: 

COMMON BLOCKS LENGTH MEMBER - BIAS NAME(LENGTH) 

block blen bias member (size) 


block Common block name as defined in COMMON statement. 

/ / represents blank common. 

blen Total length of block in decimal. 

If the long map is specified (R=3) the following details are printed for each member of each block: 

bias Relative position of member in block; in decimal, gives the distance from the block origin. 

member Variable name defined as a member of block. 

size Number of words allocated for member. 

Only variables defined as members of a common block explicitly by a COMMON statement are listed in this map. 
Variables which become implicit members of a common block by EQUIVALENCE statements are listed in the EQUIV 
CLASS map and the variable map. 


R=i and R=2: 


CONHON BLOCKS LENGTH 
ARRAY 22 


R=3: 


COHNON SLOCK* LENGTH 
ARRAY 22 


HCHSCRS - BIAS NAHE(LENGTH) 
0 L (22) 
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EQUIVALENCE CLASSES 


This map appears only when R=3 is selected. All members of an equivalence class of variables explicitly equated in 
EQUIVALENCE statements are listed. Variables added through linkage to common blocks are not included. The 
format of the map is: 

EQUIV CLASSES LENGTH MEMBERS - BIAS NAME (LENGTH) 
cbase base clen bias member (size) 

cbase Common base. A variable name appears here if the equivalence class is in a common block. 

In such a case, cbase is the variable name of the first member in that common block. 
•ERROR* Indicates this class is in error because more than one member is in common 
or the origin of the block is extended by equivalence. 

base If the class is local (not in a common block), base is the name of the variable with the lowest 

address. If the class is in a common block, base is the name of the variable in that common 
block to which other variables were linked through an EQUIVALENCE statement. 

clen Number of words allocated for base, (considered the class length). 

bias Position of member relative to base; bias is in decimal. 

member Variable name defined as a member of an equivalence class. (Members having the same bias 

which are associated with the same base and thus occupy the same locations.) 

size Size of member as defined by DIMENSION, etc. 

R=3 only: 

EQUIV CUSSES EENGTM MEMBERS - BIAS NAME (LENGTH 
SIZE1 l « SI <U 

SUEZ 1 0 SJ <11 
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PROGRAM STATISTICS 


At the end of the reference map, the statistics are printed in octal and decimal. The format is 


STATISTICS 
PROGRAM LENGTH 

BUFFER LENGTH 
COMMON LENGTH 
BLANK COMMON 


Length of program including code, storage for local variables, arrays, constants, 
temporaries, etc., but excluding buffers and common blocks. 

Total space occupied by I/O buffers and FIT/FET. 

Total length of common, excluding blank common. 

Length of blank common. 


STATISTICS 

FfiCGRAH LENGTH 117B 

COMMON LENGTH 26B 


ERROR MESSAGES 

The following error messages are printed if sufficient storage is not available. 
CANT SORT THE SYMBOL TABLE INCREASE FL BY NNNB 

or 

REFERENCES AFTER LINE NNN LOST INCREASE FL BY NNNB 


DEBUGGING (Using the Reference Map) 


New Program: 

The reference map can be used to find names that have been punched incorrectly as well as other items that willnot 
low up as compilation errors. The basic technique consists of using the compiler as a verifier and correcting 

errors until the program compiles. 


Using the listing, the R=3 reference map, and the original flowcharts, the following information should be checked by 
the programmer: 


Names incorrectly punched 


Stray name flag in the variable map 

Functions that should be arrays 

Functions that should be inline instead of external 
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Variables or functions with incorrect type 


Unreferenced format statements 
Unused formal parameters 
Ordering of members in common blocks 
Equivalence classes 
Existing Program: 

The reference map can be used to understand the structure of an existing program. Questions concerning the loop 
structure, external references, common blocks, arrays, equivalence classes, input/output operations, and so forth, can 
be answered by checking the reference map. 
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FORTRAN DIAGNOSTICS 


111-2 


Diagnostic messages are produced by the FORTRAN Extended compiler during both compilation and 
execution to inform the user of errors in the source program, input data or intermediate results. 


COMPILATION DIAGNOSTICS 

Errors detected during compilation are noted on the source listing immediately following the END card 
The format of the message is as follows: 


CARD NO. 

SEVERITY 

DIAGNOSTIC 

n 

e 

a error message 

n 

Card number where error was detected. This number is assigned by the FORTRAN Ex¬ 
tended compiler. Some declarative statement diagnostics will show the card number of 
the next non-declarative statement; END card number is used for undefined statement 
number diagnostics. 

e 

Indicates the type of diagnostic. In the following pages, compile time diagnostics are 
listed alphabetically by error type. 


I 

Informative message which indicates minor syntax errors or omis¬ 
sions which have no effect upon compilation or execution. 


FC 

When an error ol this type is encountered during compilation, the 
remaining portion of the program is checked for syntax errors 
only. Program is not executed. 


FE 

Error fatal to execution. Program compiles but does not execute. 


ANSI 

Usage does not conform to ANSI standards 1X3.0 - 1966). ANSI 
diagnostics are not listed unless the X parameter is specified on 
the FTN control card. 


a Information in this column will differ according to the type of error encountered. For 

example, if the same statement label is used more than once, the label number is 
printed. If a message of the format vn CD n appears, cn is the column number in 
which the error was detected, and n is the card number. 

error 

message Error message printed by FORTRAN Extended compiler 
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lot nrite <6ft> 
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SYMBOLIC ROMS HRS TOO MRHY CHRRRCTERS 

THE OPERATOR IMCXCRTEO »-*♦*•,/, OR MUST El FOLLONEO BY R CONSTANTf NAME* OR LEFT PARENTHESIS 
A 00 LOOR RAY NOT TERMINATE ON THIS TYPE CF STATEMENT 
PRESENT USE CF THIS LABEL CONFLICTS NITH FREVKUS USES 
UNOEFINEO STATEMENT NUMBERS* SEE 8EL0M 
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COMMA, LEFT PAREN. , =,.0«., OR .ANQ. MUST BE FOLLOWED BY A NAME, CONSTANT, LEFT P ARE M•,-,•NO T 
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EXPRESSION TRANSLATOR TABLE (OPSTAKI OVERFLOWED. SIMPLIFY THE EXPRESSION 
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ILLtGAL LHARACTER FOLLOWS PRESEUING A,I,L,0,R,0R 7 . OESCRIPIOR. ERROR SCAN FOR THIS FORMAT STOPS HERE 


ILLEGAL CHARACTER FOLLOWS PRECEDING SIGN CHARACTER. ERROR iCANNING FOR THIS FORMAT STOPS HERE 



• II1-2-8 
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a: 

o 



• m-2-10 
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tii-2-n • 


ARRAY NAHL OPERAND NOT 3UUSCRlPTEJ, FIRST ELEMENT HILL [!E JSEU 
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NUMERIC F1ELO OMIITEO IN PRECf DING SCALE FACTOR. ZERO SCALI ASSUMED 
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EXECUTION DIAGNOSTICS 


Execution errors are fatal unless a non-standard recovery routine is specified by the user (refer to section 3. 
part 3). 

Execution diagnostics are printed on the source listing in the following format: 

ERROR NUMBER x DETECTED BY routine AT ADDRESS y 
CALLED FROM routine AT ADDRESS 2 
or CALLED FROM routine AT LINE d 

y and z are octal addresses, x is a decimal error number, and d is a decimal line number as printed on the 
source listing. 

Example: 

PROGRAM EXERRdNPUT,OUTPUT) 

N=5 

GO TO (1,2,3) ,N 
1 N=N«-1 

5 2 N=N+2 

3 STOP 
END 


ERROR IN COMPUTED GOTO STATEMENT- INOEX VALUE INVALID 
ERROR NUM8ER 0001 OETECTEO BY ACGOER AT ADOPESS 000001 
CALLED FROM EXERR AT LINE 0003 

In the following list of execution diagnostic under class, the letters are interpreted as follows: 

F = Fatal A = Always 

I = Informative D = Debug 

T = Trace 
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Error 

No. Class Message Routine 

1 F A ERROR IN COMPUTED GO TO STATEMENT - ACGOERS 

INDEX VALUE INVALID 

2 IT ABS(ARG).GT.1.0 ACOS | 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

3 I A ARGUMENT ZERO ALOG 

ARGUMENT NEGATIVE 
ARGUMENT INFINITE 
ARGUMENT INDEFINITE 

4 I A ARGUMENT ZERO ALOG10 

ARGUMENT NEGATIVE 
ARGUMENT INFINITE 
ARGUMENT INDEFINITE 

5 IT ABS(ARG).GT.1.0 ASIN 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

6 I A ARGUMENT INDEFINITE ATAN I 


7 I A ARGUMENT VECTOR ZERO ATAN2 

ARGUMENT INF. OR INDEF. 


8 IT FLOATING OVERFLOW CABS 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

9 IT ZERO TO THE ZERO POWER ZTOI 

ZERO TO THE NEGATIVE POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

10 IT INFINITE ARGUMENT CCOS 

INDEFINITE ARGUMENT 

ABS (REAL PART) TOO LARGE 

ABS (IMAG PART) TOO LARGE 

11 IT INFINITE ARGUMENT CEXP 

INDEFINITE ARGUMENT 

ABS (REAL PART) TOO LARGE 

ABS (IMAG PART) TOO LARGE 
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Message 

ZERO ARGUMENT CLOG 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

13 I A ARGUMENT TOO LARGE, ACCURACY LOST COS 

ARGUMENT INFINITE 
ARGUMENT INDEFINITE 

14 IT INFINITE ARGUMENT CSIN 

INDEFINITE ARGUMENT 

ABS (REAL PART) TOO LARGE 

ABS (IMAG PART) TOO LARGE 

15 IT INFINITE ARGUMENT CSQRT 

INDEFINITE ARGUMENT 

16 IT FLOATING OVERFLOW DTOX (D**X) 

ZERO TO THE ZERO POWER 
ZERO TO THE NEGATIVE POWER 
NEGATIVE TO THE DOUBLE POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

17 IT INFINITE ARGUMENT DATAN 

INDEFINITE ARGUMENT 

18 IT X=Y=0.0+ DATAN 2 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

19 IT FLOATING OVERFLOW DTOD (D**D) 

ZERO TO THE ZERO POWER 
ZERO TO THE NEGATIVE POWER 
NEGATIVE TO THE DOUBLE POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

20 IT ZERO TO THE ZERO POWER DTOI (D**I) 

ZERO TO THE NEGATIVE POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

21 IT FLOATING OVERFLOW IN D**REAL (Z)t DTOZ (D**Z) 

ZERO TO THE ZERO OR NEGATIVE POWER 
NEGATIVE TO THE COMPLEX POWER 
IMAG(Z) *LOG(D)t TOO LARGE 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 


22 IT ARGUMENT TOO LARGE, ACCURACY LOST DCOS 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 


X and Y=real; Z=complex; D=double precision 


Error 

No. Class 
12 IT 
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Routine 


Error 

No. Class 


23 I T 


24 I T 


25 I T 


26 X T 


27 I T 

28 I T 


29 I T 


30 I A 


31 I T 


32 I T 

33 I T 


34 I T 


Message 

ARGUMENT TOO LARGE, FLOATING OVERFLOW DSXP 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

ZERO ARGUMENT DLOG 

NEGATIVE ARGUMENT 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

ZERO ARGUMENT DLOGIO 

NEGATIVE ARGUMENT 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

DOUBLE PRECISION INTEGER EXCEEDS 96 BITS DMOD 

2ND ARGUMENT ZERO 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

INFINITE ARGUMENT DABS 

INDEFINITE ARGUMENT 

ARGUMENT TOO LARGE, ACCURACY LOST DSIN 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

NEGATIVE ARGUMENT DSQRT 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

ARGUMENT TOO LARGE, FLOATING OVERFLOW EXP 

ARGUMENT INFINITE 
ARGUMENT INDEFINITE 
ARGUMENT TOO SMALL 

INTEGER OVERFLOW 
ZERO TO THE ZERO POWER 
ZERO TO THE NEGATIVE POWER 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

FLOATING OVERFLOW 
ZERO TO THE ZERO POWER 
ZERO TO THE NEGATIVE POWER 
NEGATIVE TO THE DOUBLE POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

ZERO TO THE ZERO POWER XTOI (X**I) 

ZERO TO THE NEGATIVE POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 


ITOJ 

DSIGN 

XTOD (X* *D) 
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Message 


Routine 


Error 

No. Class 


35 I T FLOATING OVERFLOW 

ZERO TO THE ZERO POWER 
ZERO TO THE NEGATIVE POWER 
NEGATIVE TO THE REAL POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 


XTOY (X* *Y) 


36 I A 


37 IT 

38 IT 

39 I A 


40 IT 


ARGUMENT TOO LARGE, ACCURACY LOST SIN 

ARGUMENT INFINITE 
ARGUMENT INDEFINITE 

ILLEGAL SENSE LITE NUMBER SLITE 

ILLEGAL SENSE LITE NUMBER SLITET 

ARGUMENT NEGATIVE SORT 

ARGUMENT INFINITE 
ARGUMENT INDEFINITE 

ILLEGAL SENSE SWITCH NUMBER SSWTCH 


41 IT ARGUMENT TOO LARGE, ACCURACY LOST TAN 

INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

42 IT INFINITE ARGUMENT TANH 

INDEFINITE ARGUMENT 


43 I T 


MASK OUT OF RANGE 


MASK 


44 I T FLOATING OVERFLOW ITOD (I**D) 

ZERO TO THE ZERO POWER 
ZERO TO THE NEGATIVE POWER 
NEGATIVE TO THE DOUBLE POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 


45 IT FLOATING OVERFLOW ITOX (I**X) 

ZERO TO THE ZERO POWER 
ZERO TO THE NEGATIVE POWER 
NEGATIVE TO THE REAL POWER 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 

46 IT FLOATING OVERFLOW IN I**REAL (Z)t ITOZ (I**Z) 

ZERO TO THE ZERO OR NEGATIVE POWER 
NEGATIVE TO THE COMPLEX POWER 
IMAG(Z) *LOG(I)t TOO LARGE 
INFINITE ARGUMENT 
INDEFINITE ARGUMENT 


47 IT FLOATING OVERFLOW IN X**REAL(Z)t XTOZ 

ZERO TO THE ZERO OR NEGATIVE POWER 
NEGATIVE TO THE COMPLEX POWER 
IMAG (Z) *LOG (X)t TOO LARGE 
INFINITE ARGUMENT 


tZ=complex; I=integer, X=real 
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Error 

Ho. 


Class 


Message 


Routine 


48 F D 


49 I A 

50 FA 

55 F A 

56 F A 

57 FA 

59 FA 

62 FA 

63 FA 

65 F A 

66 I A 
I A 
F A 
F A 
F A 
F A 
F A 
F A 
F A 
F A 
F A 
F A 


68 FA 

F A 

69 FA 

70 FA 

71 F A 
F A 

72 FA 

73 FA 

78 FA 

79 FA 

83 FA 

84 FA 

85 F A 


FATAL ERROR ENCOUNTERED DURING PROGRAM EXECUTION FTNERRS 
DUE TO COMPILATION ERROR 

TOO FEN CONSTANTS FOR UNSUBSCRIPTED ARRAY NAMElN= 

FATAL ERROR IN LOADER OVERLA$ 

END-OF-FILE ENCOUNTERED, FILENAME-XXXXXXX BUFIN= 

WRITE FOLLOWED BY READ ON FILE-xxxxxxx 
BUFFER DESIGNATION BAD—FWA.GT.LWA 


BUFFER SPECIFICATION BAD—FWA.GT.LWA BUFOUT= 

FILENAME NOT DECLARED-xxxxxxx GETFIT$ 

END-OF-FILE ENCOUNTERED, FILENAME-xxxxxxx INPB= 

END-OF-FILE ENCOUNTERED, FILENAME-xxxxxxx INPC= 

PRECISION LOST IN FLOATING INTEGER CONSTANT NAMEIN= 


NAMELIST DATA TERMINATED BY EOF, NOT $ 
NAMELIST NAME NOT FOUND 
WRONG TYPE CONSTANT 
INCORRECT SUBSCRIPT 
TOO MANY CONSTANTS 
(,$, OR = FXPECTED, MISSING 
VARIABLE NAME NOT FOUND 
BAD NUMERIC CONSTANT 
MISSING CONSTANT AFTER * 

UNCLEARED EOF ON A READ 
READ PARITY ERROR 


DECODE RECORD LENGTH .LE. 0 DECODE- 

DECODE LCM RECORD .GT. 150 CHARACTERS 

*ILL-PLACED NUMBER OR SIGN FMTAP= 

*ILLEGAL FUNCTIONAL LETTER 

*IMPROPER PARENTHESIS NESTING FMTAP= 

♦EXCEEDED RECORD SIZE FMTAP= 

♦SPECIFIED FIELD WIDTH ZERO FMTAP— 

♦BAD NUMBER FOR = 

♦FIELD WIDTH .LE. DECIMAL WIDTH FMTAP— 

♦HOLLERITH FORMAT WITH LIST FMTAP= 

♦ILLEGAL DATA IN FIELD .t. FMTAP- 

♦DATA OVERFLOW .t. FMTAP— 

OUTPUT FILE LINE LIMIT EXCEEDED OUTC= 

OUTPUT FILE LINE LIMIT EXCEEDED NAMOUT= 

ENCODE CHARACTER/RECORD .LE. 0 ENCODE= 


ENCODE LCM RECORD .GT. 150 CHARACTERS 
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Error 

Ho. 


Class 


Message 


Class 


88 FA WRITE FOLLOWED BY READ ON FILE-xxxxxxx INPB= 

89 FA LIST EXCEEDS DATA, FILENAME-xxxxxxx 

90 FA PARITY ERROR READING (BINARY) FILE-xxxxxxx 

91 FA WRITE FOLLOWED BY READ ON FILE-xxxxxxx INPC= 

92 FA PARITY ERROR READING (CODED) FILE-xxxxxxx 

93 FA PARITY ERROR ON LAST READ ON FILE-xxxxxxx OUTB= 

94 FA PARITY ERROR ON LAST READ ON FILE-xxxxxxx OUTC= 

97 FA INDEX NUMBER ERROR RANMS= 

98 FA FILE ORGANISATION OR RECORD TYPE ERR 

99 FA WRONG INDEX TYPE 

100 FA INDEX IS FULL 

101 F A DEFECTIVE INDEX CONTROL WORD 

102 FA RECORD LENGTH EXCEEDS SPACE ALLOCATED 

103 FA 6RM/7DM I/O ERR NUMBER 000 

104 FA INDEX KEY UNKNOWN 

112 FA ECS UNIT HAS LOST POWER OR IS IN WRITEC 

MAINTENANCE MODE 

113 F A ECS READ PARITY ERROR READEC 
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SYSTEM ROUTINE SPECIFICATIONS 


111-3 


The SYSTEM routine handles error traeing, diagnostic printing, termination of output buffers, and transfer 
to specified non-standard error procedures. All FORTRAN mathematical routines rely on SYSTEM to 
complete these tasks; also, a FORTRAN coded routine may call SYSTEM. Any argument used by SYSTEM 
relating to a specific error may be changed by a user routine during execution. The END processor also 
makes use of SYSTEM to dump the output buffers and print an error summary. Since the following 
routines must always be available, they are combined into one subprogram with multiple entry points. 


Q8NTRY. 


STOP. 


EXIT. 

END. 


Initializes input/output buffer parameters 
Enters STOP in dayfile and begins END processing 
Enters EXIT in dayfile and begins END processing 

Terminates all output buffers, prints an error summary, transfers control to the main 
overlay if within an overlay; in any other case exits to monitor 


SYSTEM Handles error tracing, diagnostic printing, termination of output buffers; and depend¬ 

ing on type of error, transfers to specified non-standard error recovery address, termi¬ 
nates the job, or returns to calling routine. 

SYSTEMC Changes entry to SYSTEM’S error table according to arguments passed. 


CALLING SYSTEM 

The calling sequence to SYSTEM passes the error number as the first argument and an error message as the 
second argument; therefore, several messages may be associated with one error number. The error summary 
at program termination lists the total number of times each error number was encountered. 
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ERROR PROCESSING 


[ he error number of zero is accepted as a special call to end the output buffers and return. II no OUT PUT 
file is defined before SYSTEM is called, no errors are printed and a message to this effect appears in the 
dayfile. Each line printed is subjected to the line limit of the OUTPUT buffer; when the limit is exceeded, 
the job is terminated. 

The error table is ordered serially (the first error corresponds to error number I) and it is expandable at 
assembly time. The last entry in the table is a catch-all for any error number that exceeds the table length. 
An entry in the error table appears as follows: 


Print 

Frequency 

Frequency 

Increment 

Print 

Limit 

Detection 

Total 

F/NF 

A/NA 

Non-standard 
Recovery Address 

8 

8 

12 

12 

1 

1 

18 


Print frequency is used as follows: 
Print 

Frequency 
0 

0 I 

0 n 


Increment 

0 


Diagnostic and traceback information are not 
listed. 

Diagnostic and traceback information are listed 
until the print limit is reached. 

Diagnostic and traceback information are listed 
only the first n times unless the print limit is 
reached first. 

Diagnostic and traceback information are listed 
every nth time until the print limit is reached. 


Ill 3 2 


60305600 A 

















STANDARD RECOVERY 


If the error is non-fatal (NF), and no non-standard recovery address is specified; error messages are printed 
according to print frequency, and control is returned to the calling routine. 

If the error is fatal (F), and no non-standard recovery address is specified, error messages are printed 
according to print frequency, an error summary is listed, all output buffers are terminated, and the job is 
terminated. 


NON-STANDARD RECOVERY 

If a non-standard recovery is specified by calling SYSTEMC, the recovery routine is supplied with the follow¬ 
ing information when an error occurs: 

A1 + Address of argument list passed to routine detecting the error 

XI + Address of first argument in the list 

AO Address of argument list of routine that called the routine detecting the error 

B1 Address of a secondary argument list which contains, in successive words: 

Error number passed to SYSTEM 

Address of diagnostic word available to SYSTEM 

Address within auxiliary table if A/NA bit is set, otherwise zero 

Instruction consisting of RJ to SYSTEM in upper 30 bits and 
traceback information in lower 30 bits for routine that called 
SYSTEM 

A2 Address of error table entry in SYSTEM 

X2 Contents of error table entry 

Information in the secondary argument list is not available to FORTRAN-coded routines. 


fWhen an I/O routine detects an error, A1 and XI will not contain useful information. 
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NON-FATAL ERROR 


The routine detecting the error and SYSTEM are delinked from the calling chain, and the non-standard 
recovery routine is entered. When the recovery routine exits in the normal manner, control returns to the 
routine that called the routine detecting the error. 

Thus, faulty arguments can be corrected, and the recovery routine can call the routine which detected the 
error! providing corrected arguments. Looping will occur if the recovery routine calls a routine which will 
cause the same error to recur. 


FATAL ERROR 

SYSTEM calls the non-standard recovery routine in the normal fashion, with the registers set as indicated 
above. When the non-standard recovery routine exits in the normal fashion, control is returned to SYSTEM 
and the job is terminated. 


A/NA BIT 

The A/NA bit is used only when a non-standard recovery address is specified. 

If this bit is set. the address within an auxiliary table is passed in the third word of the secondary argument 
list to the recovery routine. This bit allows more information than is normally supplied by SYSTEM to be 
passed to the recovery routine. The bit may be set only during assembly of SYSTEM, as an entry must also 
be made into the auxiliary table. Each word in the auxiliary table must have the error number in its upper 
10 bits, so that the address of the first error number match is passed to the recovery routine. An entry in the 
auxiliary table for an error is not limited to any specific number of words. 
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The traceback information is terminated as soon as one of the following conditions is detected: 

The calling routine is a program. 

The maximum traceback limit is reached. 

No traceback information is supplied. 

To change an error table during execution, a FORTRAN call is made to SYSTEMC with the following 
arguments: 

Error number 

List containing consecutive locations: 

Word 1 Fatal/non-fatal (fatal = l,non-fatal = 0) 

Word 2 Print frequency 

Word 3 Print frequency increment (only significant if word 2=0) special 

values: 

word 3=0 never list error 
word 3 = 1 always list error 
word 3 = x list error only the first x times 
Word 4 Print limit 

Word 5 Non-standard recovery address 

Word 6 Maximum traceback limit 

If any word in the argument list is negative, the value already in table entry is not to be altered. 

(Since the auxiliary table bit can be set only during assembly of SYSTEM, only then can an auxiliary table 
entry be made.) 
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| EXECUTION TIME OPTIONS 

FILE NAME HANDLING BY SYSTEM 

The file names in the PROGRAM statement are placed in RA + 2 and the locations immediately following 
by SYSTEM (Q8NTRY). RA is the reference address, the absolute address where the user’s field length 
begins. The file name is left justified, and the file’s file information table (FIT) address is right justified in 
the word. 

The logical file name (LFN) which appears in the first word of the file information table is determined in 
one of three ways: 

1. If no arguments are specified on the load card, the logical file name is the file name in the PROGRAM 
statement. 

Example: 

FTN. 

LGO. 


PROGRAM TEST1(INPUT,OUTPUT,TAPE1,TAPE2) 

Contents of RA + 2 before execution of Q8NTRY: 

000 ... 000 
000 ... 000 

Contents of RA + 2 after execution of Q8NTRY: The logical file names in the file information 

table will be: 


INPUT ... fit address INPUT 

OUTPUT .. fit address OUTPUT 

TAPE 1 ... fit address TAPE 1 

TAPE2 ... fit address TAPE2 


2. If file names are specified on the load card, the logical file name is the name specified on the load card. If 
no file names are specified on the load card, it is the file name from the PROGRAM statement. A one- 
to-one correspondence exists between parameters on the load card and parameters in the PROGRAM 
statement. 


Example: 

FTN. 

LGO(,.DATA,ANSW) 


PROGRAM TEST2(INPUT,OUTPUT,TAPEI,TAFE2,TAPE3 = TAPE1 ) 
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Contents of RA + 2 before execution of Q8NTRY: 


000 ... 000 
000 ... 000 
DATA .. 000 
ANSW .. 000 

Contents of RA + 2 after execution of Q8NTRY: 


INPUT ... fit address 
OUTPUT .. fit address 
TAPE 1 ... fit address 
TAPE2 ... fit address 
TAPE3 ... fit address of TAPE 1 


The logical file names in the file information 
table will be: 

INPUT 

OUTPUT 

DATA 

ANSW 

uses TAPE1 file information table 


3. If a file name in the PROGRAM statement is equivalenced, the logical file name is the file to the right of 
the equal sign. No new file information table is created. 

Example: 

FTN . 

LGO(,.DATA,ANSW) 


PROGRAM TEST3(INPUT,OUTPUT,TAPE1=0UTPUT,TAPE2.TAPE3) 


Contents of RA + 2 before execution of Q8NTRY: 

000 ... 000 
000 ... 000 
DATA .. 000 
ANSW .. 000 

Contents of RA + 2 after execution of Q8NTRY: 


INPUT ... fit address 

OUTPUT .. fit address 

TAPE I ... fit address of OUTPUT 

TAPE2 ... fit address 

TAPE3 ... fit address 


The logical file names in the file information 
table will be: 

INPUT 

OUTPUT 

uses OUTPUT file information table 

ANSW 

TAPE3 
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| COMPILER OPTIMIZATION 

The level of optimization performed by the compiler is determined by the value of m. 

OPT = 0 Compilation speed increases at expense of execution speed. (Selecting the D 

parameter automatically selects OPT = 0.) 

OPT= 1 Normal compilation takes place. 

OPT = 2 Execution speed increases for certain loops. Two types of optimization are 

performed: 

Calculations which do not vary are removed from loops. 

Variables and constants from the body of a loop are assigned to registers. 

The degree of optimization of DO and IF loops varies according to the 
following constraints: 

It must be the innermost loop (contain no loops). 

It must contain no branching statements (GO TO, IF or RETURN) 
except a branch back to the start of the loop for IF loops. 

The loop does not contain BUFFER IN/BUFFER OUT or ENCODE/ 
DECODE statements. If input/output or any external calls occur, only 
calculations which do not vary are removed. 

Control must flow to the statement following the end of the IF loop 
when it completes. 

Entry into the IF loop must be through the sequence of statements 
preceding the start of the loop. 


INVARIANT COMPUTATIONS 

In many instances, a programmer codes calculations which do not change on successive iterations within a 
loop. When these computations are moved outside the loop, the speed of the loop is improved without 
changing the results. 

Example 1: 


DO 100 1=1,2000 
100 A(I) = 3*1 + J/K+5 

A more efficient loop would be: 

ITERM = J/K+5 
DO 100 I = 1,2000 
100 A(I) = 3*1 + ITERM 

For clarity, the programmer may not wish to write the code in this form. However, if OPT = 2 is specified 
the more efficient loop structure is produced by the compiler. A message is printed: 

n WORDS OF INVARIANT RLIST REMOVED FROM 
THE LOOP STARTING AT LINE x 
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RLIST is the intermediate language of the compiler. The source language is translated first into RLIST, 
then into COMPASS. Optimization takes place during the RLIST phase, and it is at this point that 
invariant code is removed. The message notifies the programmer that his loop has been modified, and 
informs him of the magnitude of the change. 

Example 2: 


I = l 

200 J = K+L+4 
A(I) = M+I 
I = 1 + 1 

IF(I.LE.100)GO TO 200 

Use of OPT = 2 produces code as if example 2 had been written as shown below: 


1 = 1 

J - K+L+4 
200 A(I) = M+I 
I = 1 + 1 

IF(I.LE.100)GO TO 200 


Example 3: 


DO 300 1=1,2000 
A(I) = SQRT(FLOAT(I)) 

A(I) = A(I) + 3.5 *R 
300 CONTINUE 

The computation of 3.5*R is removed from the loop regardless of the external call. In general, this process 
will occur unless R is a parameter to the external routine, or R is in common. When a variable is a member 
of an equivalence group, its use is not recognized as invariant if another member of the group is referenced 
inside the loop by non-standard subscripts. For standard subscripts, optimization will occur, although the 
assumption is made that aH subscripting is within the bounds of array specifications. A standard subscript is 
one of the following forms; c and k are integer constants and v is an integer variable. 

c*v + k c*v v-k k 

c*v-k v + k v 

Subscript expressions which do not conform to the above are non-standard subscripts. 


REGISTER ASSIGNMENT 

For many loops, it is possible to keep commonly used variables and constants in the machine registers. 
Eliminating loads and stores from the body of the loop has two advantages: 

The reduced number of loads and stores increases execution speed. 

The loop is shortened and may fit in the instruction stack. A loop that fits in the instruction stack 
usually runs two to three times as fast as a comparable loop which does not fit in the stack. 
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Presently up to four X registers may be assigned over a loop. The number assigned depends on the number 
of candidates available for selection and the complexity of the operations performed within the loop. When 
registers are assigned, an informative message is printed: 


n REGISTERS ASSIGNED OVER THE LOOP BEGINNING AT LINE x 
Reaister assignment will not be performed for loops containing external references. 
Example: 
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FLOATING POINT ARITHMETIC 

Floating point arithmetic is carried out in the functional units of the central processor. 



Sign Biased 
Exponent 


Integer Coefficient 


Assumed 
binary point 


In the 60-bit floating point format shown above, the binary point is considered to be to the right of the 
coefficient. The lower 48 bits express the integer coefficient, which is the equivalent of approximately 14 
decimal digits. The sign of the number is the highest order bit of the packed word. Negative numbers are 
represented by the one’s complement of the 60-bit number. 

The exponent portion of the floating point format is biased by 2000 octal. This particular format for 
floating point numbers was chosen so that the packed form may be treated as a 60-bit integer for sign, 
equality and zero tests. (Refer to 6400/6500/6600 Computer Systems Reference Manual or 7600 Com¬ 
puter System Reference Manual for details of the hardware pack instruction.) 

The following table summarizes the configurations of bits 58 and 59 and the signs of the possible combina¬ 
tions. The number is negative if bit 59 is 1 and positive if bit 59 is 0. 


Bit 59 

Coefficient Sign 

Bit 58 

Exponent Sign 

0 

Positive 

1 

Positive 

0 

Positive 

0 

Negative 

1 

Negative 

0 

Positive 

1 

Negative 

1 

Negative 
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To add or subtract two floating point numbers, the floating point ADD unit enters the coefficient with the 
smaller exponent into the upper half of an accumulator and shifts it right by the difference of the expo¬ 
nents. Then it adds the other coefficient into the upper half of the accumulator. The result is a double length 
register with the following format: 



point 


If single precision is selected, the result is the upper 48 bits of the 96-bit result and the larger exponent. 
Selecting double precision causes the lower 48 bits of the 96-bit result and the larger exponent minus 60 
octal (or 48) to be returned as the result. The subtraction of 60 octal (or 48) is necessary because effectively, 
the binary point is moved from the right of bit 48 to the right of bit 0. 

The multiply units generate 96-bit products from two 48-bit coefficients. The result of a multiply operation 
is a double length register with the following format: 



Upper half result Lower half result 


When unrounded instructions are used, the upper and lower half results with proper exponents may be 
recovered separately; when rounded instructions are used, only upper half results may be obtained. 

If single precision is selected, the upper 48 bits of the product and the sum of the exponents plus 60 octal 
(or 48) are returned as the result. The addition of 60 octal (or 48) is necessary because, effectively, the 
binary point is moved from the right of bit 0 to the right of bit 48 when the upper half of the 96-bit result 
is selected. If double precision is selected, the lower 48 bits of the product and the sum of the exponents is 
the result. 

Some examples of floating point numbers are shown below in octal notation. 

Normalized floating point + I = • 720 4000 0000 0000 0000 


Normalized floating point + 100 
Normalized floating point -100 
Normalized floating point IO fM 
Normalized floating point 10" 6 ' 


= 1726 6200 0000 0000 0000 
- 6051 1577 7777 7777 7777 
= 2245 6047 4037 2237 7733 
= 6404 2570 0025 6605 5317 
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OVERFLOW (+oo or-oo) 


Overflow of the floating point range is indicated by an exponent of 3777 for a positive result and 4000 for 
a negative result. These are the largest exponent values that can be represented in floating point format, as 
shown in the floating point table. If the computed value of an exponent is exactly 3777 or 4000, a partial 
overflow condition exists. The error mode 2 flag is not set by a partial overflow. However, any further 
computation in floating point functional units with this exponent will set an error mode 2 flag. A complete 
overflow occurs when a floating point functional unit computes a result that requires an exponent larger 
than 3777 or 4000. 

! In this case the result is given a 3777 or 4000 exponent and a zero coefficient. The sign of the coefficient 
remains the same, as if the result had not exceeded the floating point range. Any further computation in 
floating point functional units with this result sets an error mode 2 flag. 

In this case, the result is given a 3777 or 4000 exponent and a zero co-efficient. The sign of the coefficient 
remains the same, as if the result had not exceeded the floating point range. The coefficient calculation is 
ignored, and the overflow condition flag is set in the Program Status Designator (PSD) register. When the 
overflow condition occurs, the overflow flag in the PSD register causes an error mode 2 message to be 
printed. Printing an error mode 2 message is the default condition; alternative actions can be specified by 
the user (refer to SCOPE Reference Manual). 



UNDERFLOW ( + 0 or -0) 


Underflow of the floating point range is indicated by an exponent of 0000 for positive numbers and 7777 
for negative numbers, the smallest exponent values that can be represented in floating point format. If these 
exponent values happen to be the exact representation of a result, a partial underflow condition exists; and 
the underflow condition flag is not set. However, further computation in floating point functional units 
with these exponents may set the underflow condition flag. 

A complete underflow occurs when a floating point functional unit computes a result that requires an 
exponent smaller than 0000 or 7777. In this case the result is given a 0000 or 7777 exponent and zero 
coefficient. The sign of the coefficient will be the same as that generated if the result had not fallen short of 
the floating point range. Thus, the complete underflow indicator is a word of all zero bits, or all one bits, 
depending on the sign. It is the same as a zero word in integer format. 

t No underflow indicator is set and no error message is printed. 


§ 


A complete underflow occurs for this instruction whenever the exponent computation results in less than 
-1776 octal. This situation is sensed as a special case, and a complete zero word with proper sign results; the 
coefficient calculation ts ignored, and the underflow condition flag is set in the PSD register. When the 
underflow condition occurs, the underflow flag in the PSD register causes an error mode 2 message to be 
printed. Printing an error mode 2 message is the default condition; alternative actions can be specified by 
the user (refer to SCOPE Reference Manual). 


t Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
§Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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INDEFINITE RESULT 


An indefinite result indicator is generated by a floating point functional unit when a calculation cannot be 
resolved; such as a division operation where the divisor and the dividend are both zero. Another case is 
multiplication of an overflow number times zero. An indefinite result is a value which cannot occur in 
normal floating point calculations. An indefinite result is represented by a minus zero exponent and a zero 
coefficient (17770 — 0). 

t Any floating point functional unit receiving an indefinite indicator as an operand will generate an indefi¬ 
nite result regardless of the other operand value, and set an error mode 4 flag. 

§ When the indefinite result is generated, a flag is set in the PSD register and an error mode 4 message is printed. Print¬ 
ing an error mode 4 message is the default condition; alternative actions can be specified by the user (refer to SCOPE 
Reference Manual). 


FLOATING POINT REPRESENTATION TABLE 


Positive Coefficient 

Negative Coefficient 

OVERFLOW 

Complete Overflow 

= 3777 0-0 

Complete Overflow 

= 4777 7-7 


Partial Overflow 

= 3777 X-X 

Partial Overflow 

= 4000 X-X 

INTEGERS 

Largest: 

7-7.x2 +1776 

= 3776 7-7 

"Largest: 

-7-7. x 2 -1776 

= 4001 0-0 


Smallest: 

1.x 2° 

= 2000 0- 01 

"Smallest: 

-1. x2° 

= 5777 7- 76 

ZERO 

Positive Zero 

= 2000 0-0 

Negative Zero 


INDEFINITE 

OPERANDS 

Indefinite Operand 

= 1777 0-0 

**Indefinite Operand 


FRACTIONS 

Largest: 

7-7. x 2~ 60 

= 1717 7-7 

"Largest: 

-7-7.x 2 -60 

= 6060 0-0 


Smallest: 

1. x 2~ 1777 

= 0000 0 - 01 

"Smallest: 

-1.x2- 1777 

= 7777 7- 76 

UNDERFLOW 

Complete Underflow 


Complete Underflow 



Partial Underflow 

= OOOOX-X 

Partial Underflow 


* In absolute value. 




** An indefinite operand with a negative sign can occur only from packing or Boolean operations. 


I J Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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NON-STANDARD FLOATING POINT ARITHMETIC 

Indefinite result indications: 


OIIOOX-X = positive zero ( +t>) 

7777X-X = negative zero (-0) 

3777X-X = positive infinity (+«> ) 

4000X-X = negative infinity (-°° ) 

I777X-X = positive indefinite ( + IND) 

6000X-X = negative indefinite (-IND) 

where X is an unspecified octal digit. 

If the correct result of an operation coincides with any of the above exponents, no error flag is set. 

When a floating point arithmetic unit uses one of these six special forms as an operand, however, only the 
following octal words can occur as results and the associated error mode flag is set. 


37770-0 = positive infinity ( +°° ) 

40007-.7 = negative infinity (-oo) 

17770-.0 = positive indefinite ( + IND) 

00000.0 = positive zero (+0) 


Overflow condition flag 
Overflow condition Hag 
Indefinite condition Hag 
Underflow condition flag 


The following tabulations show results of the add, subtract, multiply and divide operations using various 
combinations of infinite, indefinite, and zero quantities as operands. The designations w and n are defined 
as follows: 


w = any word except +<», IND 
n = any word except ±<*>, IND, or ±0 

ADI) 

XI = X2 + X3 


X3 


X2 



W 

+ oo 

— OO 

tIND 

w 

- 

f oo 

-oo 

IND 

+ oo 

+ oo 

+ oo 

IND 

IND 

- oo 

-oo 

IND 

-OO 

IND 

±IND 

IND 

IND 

IND 

IND 
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DIVIDE 

XI = X2 / X3 


X3 



+N 

-N 

+0 

-0 

4-oo 

-OO 

±IND 

+N 

- 

- 

+ oo 

-OO 

0 

0 

IND 

-N 

- 

- 

-oo 

4-00 

0 

0 

IND 

+0 

0 

0 

IND 

IND 

0 

0 

IND 

-0 

0 

0 

IND 

IND 

0 

0 

IND 

-foo 

-foo 

-oo 

4-oo 

-OO 

IND 

IND 

IND 

-oo 

-oo 

-foo 

-oo 

4-oo 

IND 

IND 

IND 

±IND 

IND 

IND 

IND 

IND 

IND 

IND 

IND 


INTEGER ARITHMETIC 

Central processor has no 60-bit integer multiply or divide instructions. Integer multiplication and division 
are performed with 48-bit arguments. The exponent of the result is set to zero. 48-bit integer multiplication 
is performed with an integer multiply instruction, but integer division must be performed in the floating 
divide unit. Integer arithmetic is accomplished by putting the integers into unnormalized floating point 
format using the pack instruction with a zero exponent value. 

In integer division, the exponent of the resulting quotient is removed and the result is shifted to compensate 
for the fact that the result was normalized. In FORTRAN Extended, integer results of multiplication or 
division are expressed within 48 bits. Full 60-bit one’s complement integer sums and differences are 
possible internally as the central processor has integer addition and subtraction instructions. However, 
because the binary-to-decimal conversion routines use multiplication and division, the range of integer 
values output is limited to those which can be expressed with 48 bits. 


DOUBLE PRECISION 

Although complete arithmetic instructions using double precision arguments are not provided by the hard¬ 
ware, the FORTRAN compiler generates code for true double precision by using instructions which give 
upper and lower half results with single precision arguments. 
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COMPLEX 


Complex arithmetic instructions are not provided by hardware. The FORTRAN compiler generates code 
for complex arithmetic by using single precision floating point instructions. 

LOGICAL AND MASKING 

Logical and masking operations are provided by hardware logical instructions which operate on the entire 60-bit 
word (refer to section 2, part I). Positive values are considered false; negative values are true. The constant 
.TRUE, generates -1; the constant .FALSE, generates zero. 


ARITHMETIC ERRORS 

| Arithmetic errors are classifed at execution time as mode 1-7: 


Mode 

1 


2 

3 

4 

5 

6 
7 


Error 

Address out of range 

(Reference to LCM or SCM outside established limits. 

§< 

' LCM or SCM block range 
Operand is an infinite number 
Address out of range or operand is infinite number 
Indefinite operand 

Address out of range or indefinite operand 

Operand is infinite or indefinite number 

Operand is infinite, indefinite or address is out of range 


§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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Mode I 


Mode 2 


Mode 3 
Mode 4 


Mode 5 
Mode 6 


Mode 7 


Address out of range. A non-existent storage location has been referenced. Mode 1 
errors may be caused by: 

calling a non-existent subprogram during execution 

using an incorrect number of arguments when calling a subprogram 

a subscript assuming an illegal value 

no dimensons specified for an array name 


Infinite operand. One of the operands in a real operation is infinite. Infinity is the result 
whenever the true result of a real operation would be too large for the computer, or when 
division by zero is attempted. A value of infinity may be returned when some functions are 
referenced. For example, ALOG(0.) would be negative infinity. 

iirthe following example, Z would be given the value infinity, and when the addition Z + 56. 
is attempted execution terminates with a mode 2 error. 

1 FORMAT (F12.3) 

Y - 0. 

Z - 23.2/Y 
PRINT 1, Z 
CAT - Z + 56. 

When the print statement is executed, an R is printed to indicate an out of range 
value. 

Address is out of range or operand is infinite number. 

Indefinite operand. One of the operands in a real operation is indefinite. An indefinite 
result is produced by dividing 0. by 0. or multiplying an infinite operand by 0. An 
illegal library function reference may return an indefinite value. For example, SQRT 
(-2.) would produce an indefinite result. An attempt to print an indefinite value pro¬ 
duces the letter I. 

Address is out of range or indefinite operand. 

Operand is infinite or indefinite. A mode 6 arithmetic error occurs when a real opera¬ 
tion is performed with one operand infinite and the other operand indefinite. 

Operand is infinite, indefinite, or address is out of range. 


t When an' arithmetic error occurs the following type of message appears in the dayfile and execution is 
terminated: 


14.39*06. FP^OP *tonr = ?. A HDRESF -00P135 


t Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
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When an arithmetic error occurs, the following type of message appears in the dayfile under the headings shown 
below: 

14.30.36”00012.059 55 SYS. SC006 - SCM DIRECT RANGE 


CODE xxnnn 

xx SC or JM SC indicates System Control; JM, Job Management. System Control provides system 

overlay loaders and some communication between operating system overlays. Job Manage¬ 
ment controls user program input/output, and prepares user programs for execution. 

nnn Index number of the message. 


MESSAGE AND MEANING The message and an interpretation (if necessary) are printed. 

LEVEL Indicates the level of severity of the error as follows: 

X Job terminates. No EXIT processing occurs. 

F Job terminates. EXIT processing occurs. 

W Warning is printed, and error is ignored. Processing continues, although the portion of the 

program containing the error may not be executed. 

I Informative message is printed. 

CODE MESSAGE AND MEANING LEVEL 

SC001 
SC002 
SC003 
SC004 
SC005 
SC006 
SC007 
SC008 
SC009 
SC010 

scon 

SC012 
SC040 

RAS+1 of user area is non-zero. 


LCM PARITY F 

SCM PARITY F 

LCM BLOCK RANGE F 

SCM BLOCK RANGE F 

LCM DIRECT RANGE F 

SCM DIRECT RANGE F 

PROGRAM RANGE F 

BREAKPOINT F 

STEP CONDITION F 

INDEFINITE CONDITION F 

OVERFLOW CONDITION F 

UNDERFLOW CONDITION F 

JOB MAKING 6000 REQUEST IN RAS+1; F 


§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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TRACING ARITHMETIC ERRORS 

The following example outlines a method for detecting the location of an arithmetic error. When the 
following program is executed: 

PROGRAM ERR <OUTPUT t TAPE1=0UTPUT> 
NAMELIST /0UT/T,E 
DATA T,E/0.,1./ 

1 WRITE <1» OUT) 

5 E = E/T ♦ i. 

T = T - i. 

GO TO i 
ENO 

this message appears in the dayfile: 

11. ??. MOOT = = 00 , ’t c ^ 

2153 is one plus the address at which the error was detected. The error was detected at address 2152. To 
locate this address in the program, turn to the Load Map and read the entries under PROGRAM AND 
BLOCK ASSIGNMENTS. 


n(_nr/ 

ft nnp~c«s 

l.-MCTH 

rT L : 

TOP 


'’071 

1 . 1 n 

/rn.TO./ 

?\y> 

1 7 4 


r C n PYP = 

PTpS 

577 

'^L- r *n" )r p S.N 

rFTCTTr 

T'-C-r ) 

77 

5L- c, 3' ,t P AM 

/Tr.niir, / 

t* 7 ^ 

??7 


M ft MP’ITr 

7 

57 7 

< sL-' r 0 7To 

/ JNPT ,'»M / 


14 


iTiir.sn 

r q 

1 7 7 

SL-PYSTO 

/roM.ov/ 

A’l 1 

0 



Tire user program ERR occupies storage locations 101 through 2171. Location 2152 lies between 101 and 
2171 and is therefore in the main program ERR. It is location 2051 relative to the beginning of ERR fall 
locations are relative to the first word address of the program load) 2152 - 100 = 2051 (octal). 


x Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
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OBJECT-TIME INPUT/OUTPUT 


STRUCTURE 

DEFINITIONS 

Record 


Physical record 

Physical Record 
Unit (PRU) 

File 

Logical file 


OF INPUT/OUTPUT FILES 


Data created or processed by: 

One unformatted WRITE/READ 

One card image or a print line defined within a formatted WRITE/READ. The slash 
indicates the end of a record anywhere in the FORMAT specification list. 

One WRITMS/READMS 

One BUFFER IN/OUT 

Data between inter-record gaps; it need not contain a fixed amount of data. A physical 
record is defined only on magnetic tape. 


The largest unit of information that can be transferred between a peripheral storage 
device and central memory/small core storage. 

A collection of records referenced by one file name. 

A portion of a file demarcated by FORTRAN ENDFILE statements. 


FORTRAN I/O statements utilize and keep information in the file 
information table (FIT) for each file. If a file or its FIT is changed 
by other than standard FORTRAN I/O statements, subsequent 
FORTRAN I/O to that file may not function correctly. Thus, it 
is recommended that the user not try to use both standard 
FORTRAN and non-standard I/O on the same file within a program. 
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MAXIMUM PHYSICAL RECORD UNIT SIZE 


Physical Record on: 

Formatted 

Unformatted 

t Disk 

+ 640 characters 

1640 characters 

Magnetic tape in 

SCOPE format 

1280 characters 

5120 characters 

S Tapes 

5120 characters 

5120 characters 

L Tapes 

limited only by buffer size 


RECORD MANAGER 

The following tables provide brief descriptions of the block/record formats supported by the Record 
Manager. Detailed information on these formats is available in the Record Manager Reference Manual. 


Logical Record Type Description 

F Fixed length records 

D Record length is given as a character count, in decimal, by a length 

field contained within the record. 

R Record terminated by a record mark character specified by the user 

T Record consists of a fixed length header followed by a variable num¬ 

ber of fixed length trailers -- the header contains a trailer count field 
in decimal. 


U Record length is defined by the user. 

W Record length is contained in a control word prefixed to the record bv 

the operating system. 

Z Record is terminated by a 12-bit zero byte in the low order byte 

position of a 60-bit word. 

S One or more physical record units terminated by a short physical 

record unit. 

B Record length given as a character count in binary by a length field in 

first four characters of record. 


i Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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Block Type 

Description 

K 

All blocks contain a fixed number of records; the last block can be 
shorter. 

C 

All blocks contain a fixed number of characters; the last block can 
be shorter. 

E 

All blocks contain an integral number of records. Block sizes may 
vary up to a fixed maximum number of characters. 

1 

A control word is prefixed to each block by the operating system. 


The following table specifies combinations of block and record types that can be processed by a FORTRAN 
program, where x = legal: 


Block Type 

Record Type 

K 

F 

D 

R 

T 

ut 

w 

z 

s 

B 

X 

X 

X 

X 

X 

X 

X 


X 

C 

X 

X 

X 

X 


X 

X 

X 

X 

E 

X 

X 

X 

X 


X 

X 


X 

1 



_1 



X 


_1 



§ t Must be blocked one record per block 


FORTRAN DEFAULT CONVENTIONS (SEQUENTIAL FILES) 

File organization = Sequential 

Block Type= I for unformatted, C for all others 

Block Type§ = I for unformatted tape file, unblocked for all others 

Record TypeJ = W for unformatted, Z for formatted, S for BUFFER 

Record Type§ = W for all file types 

External character code = Display code 

§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers, 
t Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
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Label type = Unlabeled 
Maximum block length = 5120 characters 
Positioning before first access = No rewind 
Positioning of current volume before swap = Unload 
Positioning after last access = No rewind 
Processing direction = Input/output 
t Error options = A (accept) 

[ Error options = T (terminate) for READ/WRITE, AD (accept and display) for BUFFER input/output 
Suppress multiple buffer = No ( Record Manager anticipates user requirements) 

Conversion mode = No 

A unit record is one W format record. One formatted WRITE can create several unit records. One format¬ 
ted read can process as input several unit records. 

The default values for files named INPUT, OUTPUT and PUNCH are: 

( Block type C and record type Z. 

* j Buffer input/output files default to C type blocks and S type records. Buffer default for the file OUTPUT is C type 
( blocks and Z type records. 

The appropriate conversion mode is set for all buffer input/output operations. 

The conversion mode is set prior to the first open and cannot be changed during the processing or a file. 

FORTRAN DEFAULT CONVENTIONS (RANDOM FILES) 

When a file is processed using mass storage subroutines, the following file attributes are provided by the 
FORTRAN compiler: 

File organization = Word addressable 

Record type = W 

Positioning before first access = t None §(Rewind) 


$ Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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This deck illustrates the use of the FILE card to override default values supplied by the FORTRAN compiler. 
Assuming the source program is using formatted writes and 100-character records are always written, the file will 
be written on magnetic tape in 1000-character blocks (except possibly the last block) with even parity, at 800 bpi. 
No labels will be recorded, and no information will be written other than that supplied by the user. Records will be 
blocked 10 to a block. The following values are used: 

Block type = character count 
Maximum block length = 1000 characters 
Record type = fixed length 
Record length = 100 characters 
Conversion mode = YES 
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BACKSPACE/REWIND 


Backspacing on FORTRAN files repositions them so that the last logical record becomes the next logical 
record. 

BACKSPACE is permitted only for files with F, S, or W record format or tape files with one record per 
block. 

The user should remember that formatted input/output operations can read/write more than one record: 
unformatted input/output and BUFFER IN/OUT read/write only one record. 

The rewind operation positions a magnetic tape file such that the next FORTRAN input/output operation 
references the first record. A mass storage file is positioned to the beginning of information. 

The following table details the actions performed prior to positioning. 


BACKSPACE/REWIND 


Condition 

Device Type 

Action 

Last operation was 

Mass Storage 

Any unwritten blocks for the file are written. 

WRITE or BUFFER 

OUT 


If record format is W, a deleted zero length re¬ 
cord is written. 


Unlabeled Magnetic 

Any unwritten blocks for the file are written. 


Tape 

If record format is W, a deleted zero length re¬ 
cord is written. 

Two file marks are written. 


Labeled Magnetic 

Any unwritten blocks for the file are written. 


Tape 

If record format is W, a deleted record is written. 

A file mark is written. 

A single EOF label is written. 

Two file marks are written. 


§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 

± Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
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Condition 

Device Type 

Action 

Last operation was 
WRITE. BUFFER 

OUT or ENDFILE 

Mass storage (no 
blocking) 

Any unwritten blocks for the file are written. 

If record format isS, a zero length level 17 block 
is written. 

Unlabeled Magnetic 
Tape or Blocked 

Mass Storage 

Any unwritten blocks for the file are written. 

1 f record format is S, a zero length level 17 block 
is written. 

Two file marks are written (on tape). 

Labeled Magnetic 
Tape or Labeled 
Blocked Mass 

Storage 

Any unwritten blocks for the file are written. 

If record format isS, a zero length level 17 block 
is written. 

A file mark is written. 

A single EOF label is written. 

Two file marks are written. 

Last operation 
was READ, 

BUFFER IN or 

BACKSPACE 

Mass Storage 

None 

Unlabeled 

Magnetic Tape 

None 

Labeled 

Magnetic Tape 

If the end of information has been reached, 
labels are processed. 

No previous 
operation 

Magnetic Tape 

if the file is assigned to on-line magnetic tape, a 
REWIND request is executed. 

§ If the file is staged, the REWIND request has no 
effect. The file is staged and rewound when it is 
first referenced. 


Mass Storage 

REWIND request causes the file to be rewound 
when first referenced. 

Previous 
operation was 

REWIND 


Current REWIND is ignored. 


§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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ENDFILE 


The ENDFILE operation introduces a delimiter into an input/output file. The following table shows the 
effect of ENDFILE on various record types, 


Record Type 

Action 

W 

Write end-of-partition. 

S 

Terminate current block for magnetic tape file. Write level 17 zero 


length block. 

Z with C 


blocking 

Terminate current block for magnetic tape file. Write level 17 zero 


length block. 

D,B,R,T 


F,U, or Z 

Terminate current block for magnetic tape file. Write level 17 zero 


length block. 


A WRITE/BUFFER OUT can follow an ENDFILE operation. If the file has records of the format W,S, or 
Z with C blocking or it is a mass storage file with any other block/record formats, no special action is 
performed. However, if the file is assigned to magnetic tape and has a record format other than W, S, or Z 
with C blocking a tape mark is written preceding the requested record. 

Meaningful results are not guaranteed if an ENDFILE is written on a random access file, and subsequently a 
random file subroutine, such as READMS, is called. 
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LABELED FILES 


Only files recorded on magnetic tape can be labeled files.. 

If a file is declared to be labeled on a REQUEST control card, the label (HDR1 only) is compared with the 
label expected by the user. If the information does not compare and the use of the file is input, the job 
continues after instructions are entered from the system console. For output, a default label is written, and the 
job continues. 

An object time subroutine, LABEL, is provided for the FORTRAN programmer to set up label information 
for Record Manager. If label information is properly set up, and subroutine LABEL is referenced prior to 
any other reference to the file, when the file is opened, the label and the information are compared for an 
input tape; or the information is written on an output tape. 

Form of the call: 


/ 


T 


7 _ 

CALL LABEL (u.fwa) 


u Unit number 

fwa Address of first word containing the label information which must be in the mode and format 
discussed in the Record Manager Reference Manual. 

§ The subroutine LABEL performs no operation under SCOPE 2.0, which does not support labeling conventions; 
however, SCOPE 2.1 provides labeling support. 


§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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BUFFER INPUT/OUTPUT 


t The maximum lengths for physieal records on tape can be exceeded using the BUFFER input/outpul 
statements if the L parameter on the SCOPE REQUEST control card is specified. 

( BUFFER IN/OUT statements can be used to achieve some degree of overlap between the user program 
and input/output with an external device (mass storage or tape). Plowever, the memory area specified in the 
BUFFER IN/OUT statement will not be used as the physical record buffer. These buffers are maintained 
within an operating system buffer area in LCM. The execution of a BUFFER IN/OUT statement, there¬ 
fore, involves movement of a record between system buffers in LCM and the memory area specified in the 
BUFFER IN/OUT statement. Correspondence between individual BUFFER statements and physical rec¬ 
ords on a device depends upon the block specification. For example. K blocking with a record count of one 
ensures that each BUFFER IN/OUT corresponds to a block. 

BUFFER IN 

1. Only one record is read each time a BUFFER IN is performed. If the length specified by the BUFFER 
statement is longer than the record read, excess locations are not changed by the read. If the record read 
is longer than the length specified by the BUFFER statement, the excess words in the record are ignored. 
The number of central memory words transferred to the program block can be obtained by referencing 
the function LENGTH or the subroutine LENGTHX (section 8, part I). 

2. When records do not terminate on a word boundary (such as might occur on a file not created by BUFFER 
statements), and if the number of words requested in a BUFFER IN is greater than or equal to the number 
of words in the record, the exact length of the record can be determined by using the LENGTHX library 
subroutine. LENGTHX returns the number of unused bits in the last word of the data transfer as well as 
the number of central memory words transferred (section 8, part I). 

3. After using a BUFFER IN/OUT statement on unit u, and prior to referencing unit u or the contents of 
storage locations a through b, the status of the BUFFER operation must be checked by a reference to the 
UNIT function (section 8, part I). This status check ensures that the data has actually been transferred, 
and the buffer parameters for the file have been restored. 

4. If an attempt is made to BUFFER IN past an end-of-file without testing for the condition by referencing 
the UNIT function, the program terminates with the diagnostic: END OF FILE ENCOUNTERED file name 

5. If the last operation on the file was a write operation, no data is available to read. If a read is attempted, 
the program terminates with the diagnostic: WRITE FOLLOWED BY READ ON FILE 

6. If the starting address for the block is greater than the terminal address, the program terminates with the 
diagnostic: BUFFER DESIGNATION BAD FWA.GT.WA, file name 

7. If an attempt is made to BUFFER IN from an undefined file (a file not declared on the PROGRAM card), 
the program terminates with the diagnostic: UNASSIGNED MEDIUM, file name 


$ Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 
§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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BUFFER OUT 


1. One record is written each time a BUFFER OUT is performed. The length of the record is the terminal 
address of the record (LWA) - starting address (FWA) + I. 

2. As with BUFFER IN. a BUFFER OUT operation must be followed by a reference to the UNIT func¬ 
tion. This reference must occur prior to any other reference to the file. 

3. If the terminal address is less than the first word address, the program terminates and the following 
diagnostic is issued: 

BUFFER SPECIFICATION BAD FWA.GT.LWA. file name 

4. The UNASSIGNED MEDIUM diagnostic is similar to that issued from a BUFFER IN. 


STATUS CHECKING 

UNIT FUNCTION (BUFFERED INPUT/OUTPUT) 

The UNIT function is used to check the status of a BUFFER IN or BUFFER OUT operation on logical 
unit u. The function returns the following values: 

-1 Unit ready, no error 

+ 0 Unit ready, end-of-file encountered on the previous operation 
+ 1 Unit ready, parity error encountered on the previous operation 

Example: 

IF (UNIT(5)) 12,14,16 

Control transfers to the statement labeled 12, 14 or 16 if the value returned was -1.. 0.. or +1. respectively. 

If 0. or 4-1. is returned, the condition indicator is cleared before control is returned to the program. If the 
UNIT function references a logical unit referenced by input/output statements other than BUFFER IN/ 
BUFFER OUT, the status returned will always indicate unit ready and no error (-1.). 

Any of the following conditions encountered during a read result in end-of-file status: 

End of information 
Non-deleted W format flag record 
Embedded tape mark 
Terminating double tape mark 


60305600 B 


III-5-13 


Terminating end of file label 
Embedded zero length level 17 block 
At end of section on INPUT file only 


EOF FUNCTION (NON-BUFFERED, INPUT/OUTPUT) 

The EOF function is used to test for an end-of-file read on unit u. Zero is returned if no end-of-file is 
encountered, or a non-zero value if end-of-file is encountered. 


Example: 

IF (EOF(5)) 10,20 

returns control to the statement labeled 10 if the previous read encountered an end-of-file; otherwise, control 
goes to statement 20. 

If an end-of-file is encountered. EOF clears the indicator before returning control. 

If the previous operation on unit u was a write, EOF will return a zero value. An end-of-file condition exists 
only when an end-of-file is read. 

This function has no meaning when applied to a random access file. If the EOF function is called in 
reference to such a file, a zero value would be returned. 

Refer to the UNIT function for a list of conditions which result in an end-of-file status. 

The user should test for an end-of-file after each READ statement to avoid input errors. If an attempt is made to 
read on unit u and an EOF was encountered on the previous read operation on this unit, execution terminates 
and an error message is printed. 

On the file INPUT, reading either a 6/7/8/9 card or a 7/8/9 card will set the end-of-file indicator. On files 
other than INPUT, reading an end-of-record does not set the end-of-file indicator. 
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Example: 

If the values in storage are A = 10., B = 44., and C = 3., and an EOF is reached after A is read, 
B and C are not read nor altered in memory. 



READ 1, A,B,C 
1 FORMAT (F4.2) 

After the read statement, A will contain 24., B = 44. and C = 3. The end-ol-lile flag will he set. The job 
will be terminated if a subsequent READ is attempted without first executing an EOF check. 


IOCHEC FUNCTION 

The IOCHEC function tests for parity errors on non-buflered reads on unit u. The value zero is returned if 
no error occurs. 

Example: 

J - IOCHEC(6) 

IF (J) 15,25 

zero value would be returned to J if no parity error occurred and non-zero if an error had occurred; control 
would transfer to the statement labeled 25 or 15 respectively. 

If a parity error occurred, IOCHEC would clear the parity indicator before returning. Parity errors are 
handled in this way regardless of the type of the external device. 
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PARITY ERROR DETECTION 


t A parity error status indicates that a parity error occurred within the current record. For non-buffered 
formatted files, the error did not necessarily occur within the last record requested by the program because 
the input/output routines read ahead one record whenever possible. 

§ Parity errors are detected by the status checking functions on all read operations. When the write check 
option is specified on the REQUEST statement for the file (7600 SCOPE V2.0 Reference Manual) parity 
status may be checked on write operations which access mass storage files. Write parity errors for other 
types of devices (staged/on-line tape) are detected by the operating system, and a message is written in the 

dayfile. 

When parity error status is returned, this does not necessarily refer to the immediately preceding operation 
because of the record blocking/deblocking performed by the Record Manager input/output routines via 
buffers in large core memory. 


DATA INPUT ERROR CONTROL 

I The subprogram ERRSET allows a complete READ with FORMAT to be processed in one pass without premature 
termination because of errors in the format of the data; a listing is produced of all data errors and input diagnostics. 

ERRSET (a,b) is called before a READ statement; it initializes an error count cell, a, and establishes a 
maximum number of errors, b. The program does not terminate when fatal errors are encountered until the 
limit,b, is reached. A maximum limit of 2'-1 can be specified. 

The limit continues in effect for any subsequent READ statements until the number of errors specified has 
accumulated. The limit can be reset before a READ statement or turned off by setting b=*0; b=0 is the 
equivalent of a normal read. 

Example: 

The following example illustrates the use of ERRSET to suppress normal fatal termination when 
large sets of data are being processed. 


X Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computer. 
§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 
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When ERRSET is called, a limit of 200 errors is established. The number of errors will be stored in 
KOUNT. After ARAY is read, KOUNT is checked. If errors occur, the following statements are 
not processed and a branch is made to statement 500. Had ERRSET not been called, fatal errors 
would have terminated the program before the branch to statement 500. At statement 500, 
ERRSET once more initializes the error count and execution continues. 

CALL ERRSET(KOUNT,200) 

READ(1,125)(ARAY(I),1-1,1500) 

125 FORMAT (3F10.5,E10.1) 

IF (KOUNT.GT.0) GO TO 500 


500 CALL ERRSET(KOUNT,200) 

READ(1,125)(BRAY(I),1-1,1500) 
IF (KOUNT.GT.O) GO TO 600 


600 CALL ERRSET(KOUNT,100) 

READ(1,230)(LRAY(I),1-1,500) 
PRINT 99, KOUNT 
READ(4,127)(MRAY(I),1-1,500) 
PRINT 99, KOUNT 
READ(4,225)(NRAY(I),1-1,50) 


IF (KOUNT.GT.O) GO TO 700 


700 CALL EXIT 
END 

Data errors and diagnostics are listed, providing the programmer with a list of errors for the entire 
program: 
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ERROR MESSAGES 


ERROR IN COMPUTED GOTO STATEMENT- INOEX VALUE IWALIO 
ERROR NUMBER 0001 DETECTED BY ACGOER AT ADDRESS 000301 
CALLEO FROM EXERR Aff LINE 0003 


DIAGNOSTICS 

1. Illegal Data in Field 

* ERROR DATA INPUT* ILLEGAL DATA IN FIELD 
*’FORMAT NO. 125 

2. Data overflow, exponent subfield has exceeded 323 (decimal) (data underflow, exponent less than -323.) 

•ERROR DATA INPUT* DATA OVERFLOW 
** FORMAT NO. 125 

3. Both illegal data and data overflow have been detected. 

•ERROR DATA INPUT* ILLEGAL DATA IN FIELD 
AND DATA OVERFLOW ** FORMAT NO. 125 

An error summary appears at the end of the program. 

Error Summary: 

ERROR TIMES 

0078 0003 

0079 0001 
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PROGRAMMING NOTES 


Meaningful results are not guaranteed in the following circumstances: 

1. Mixed formatted and unformatted read/write statements on the same file (without an intervening REWIND). 

2. Mixed buffer input/output statements and read/write statements on the same file. 

3. Requesting a LENGTH function or LENGTHX call on a buffer unit before requesting a UNIT function. 

4. Two consecutive buffer input/output statements on the same file without the intervening execution of a 
UNIT function call. 

5. Attempting to process a mass storage input/output file when specifying (either explicitly or implicitly) a 
file organization other than word addressable, or a record type other than W. 

6. Failing to close a mass storage input/output file with an explicit CLOSMS in an overlay program. 
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FORTRAN - RECORD MANAGER INTERFACE 



Thfc FORTRAN user can access Record Manager facilities by calling external subprograms that use the COMPASS 
Record Manager macros. The subprograms described here allow limited access to the Record Manager macros without 
requiring the user to write his own subprograms in COMPASS. Subprograms are provided to create, access, modify 
the file information table, position, and process the files. The Record Manager Reference Manual, publication 
number 60307300, includes a complete description of each macro and its parameters. 

F&E INFORMATION TABLE CALLS 

To place values in the file information table the user can call one of the following subroutines: 

FILESQ for sequential files 
FILEWA for word addressable files 
FILEIS for indexed sequential files 
FILEDA for direct access files 
FILEAK for actual key files 

7. ..- 

CALL FILExx (fit.keywotd,.value^.keyword n ,valu« n ) 


All parameters, with the exception of fit, are paired; the first parameter is the keyword which indicates the field in 
the file information table, the second parameter is the value to be placed in the field. Only the pertinent parameters 
need be specified, and they may appear in any order. Since a FORTRAN call can contain a maximum of 63 param¬ 
eters, 31 file information table fields can be specified with a FILExx call. 

xx SQ, WA, IS, DA, or AK 

fit Name of an array. Record Manager resides in the user’s field length, and the array must be 

large enough to contain both the file information table (FIT) and the file environment table 
(FET). 35 words should be allocated; 20 words for the file information table and 15 words 
for the file environment table. The FIT is created by the subroutine FILExx, beginning in 
the first word of the array. Record Manager supplies the information which is placed in 
the user’s array after the FIT. 



JThis information applies only to the CONTROL DATA CYBER 70/Models 72, 73 and 74 and 6000 Series 
computers. 
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information on this page applies °^ Y ™™ E “p.™? R L s DATA 

CYBER 70/MODELS 72, 73 AND 74 AND 6000 SERIES COMPUTE . 


Keyword 


Value 


Specifies a file information table field. 
Hollerith constant. FIT mnemonics are 


An FIT field mnemonic is passed as an L format 
described in the Record Manager Reference Manual. 


Example: 

3LFWB 

3LLFN 

2LKL 

Value to be placed in the FIT field specified by keyword. The following three types of values 
are allowed: 



Names of arrays or external subroutines. 

Example: Specify the array RCD as the user’s record area. 

..., 3LWSA.RCD,... 

Integer constants or integer variables. 

Example: Set the key length field to ten characters. 


.... 2LKL.10,... 

Hollerith constants. 

Example: Select the duplicate key processing option. 

.... 3LKDI.3LYES,... 


ACCESSING FILE INFORMATION TABLE FIELDS 

Contents of the FIT can be accessed by using the integer function IFETCH. 

IFETCH (fit,keyword) 

f Names of the array containing file information table. 


keyword Character name of the field. 

If the keyword specifies a one-bit field, negative result is returned if the bit is on 
negative check; otherwise it is returned as an integer value. 


and can be sensed by a positive- 


Example: 


M=IFETCH(FILE,2LRL) 

Tk, record length is returned to the function IFETCH end repUces the value of M, 
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INFORMATION ON THIS PAGE APPLIES ONLY TO THE CONTROL DATA 
CYBER 70/MODELS 72, 73 AND 74 AND 6000 SERIES COMPUTERS. 


FILE COMMANDS 

After the file information table is created using CALL FILExx file accessing commands can be issued. The first 
command must be OPENM, and the last CLOSEM. 

In file commands, the parameters are identified strictly by their position; thus, parameters can be omitted only from 
the right. In FORTRAN, unlike COMPASS macros, adjacent commas are illegal in a subroutine call. When parameters 
are omitted the current value of the corresponding FIT fields remain unchanged. If the same subroutine is called 
twice, each with a different number of parameters, the compiler issues an informative diagnostic. 

In some file commands a parameter position can have two meanings, for example in CALL PUT, the top 

parameter always applies to index sequential or direct access files, and the bottom to word addressable files. 

In the following description of the file commands, fit is the name of the array containing the file information table. 

Example: 

The following call sets up the FIT for a direct access file: 

CALL FILEDA (FILE,3LLFN,7LSDAFILE,3LFWB, BUFFER ,3LBFS,400,3LBCK,3LYES) 

The FIT and the FET are to be constructed in the array named FILE. The file name (LFN) is SDAFILE. The buffer 
is to be placed in the 400-word array BUFFER. 3LBCK.3LYES selects the block checksumming option. 


UPDATING FILE INFORMATION TABLE 

After the file information table is created, it can be updated by calls to the subroutine STOREF. 


7 



CALL STOREF (fit,keyword,value) 


fit Array where the file information table was created, 

keyword File information table field, 

value Value to be placed in the field. 

Example: 

CALL STOREF (FILE,2LRL,250) 

Sets record length in the FIT, in the array FILE, to 250 characters. 
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INFORMATION ON THIS PAGE APPLIES ONLY TO THE CONTROL DATA 
CYBER 70/MODELS 72, 73 AND 74 AND 6000 SERIES COMPUTERS. 


CALL OPENM (fit.pd.of) 


OPENM prepares a file for processing. Each file must be opened before processing, 
pd Processing direction established when file is opened: 


5LINPUT 


6ROUTPUT 


3 LI-0 


3LNEW 


Read only 
Write only 


Read and write 


Indexed sequential or direct access file to be created (write only) 


of Open flag specifies position of file when it is opened: 


Rewind; file is rewound before any other open procedures are 
performed. 

No file positioning is done before other open procedures. 

File is positioned immediately before end of information to allow 
extensions to a mass storage file. 
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INFORMATION ON THIS PAGE APPLIES ONLY TO THE CONTROL DATA 
CYBER 70/MODELS 72, 73 AND 74 AND 6000 SERIES COMPUTERS. 


kp^ Beginning character position of key within ka. Key positions are ordered from left to right 

(0-9). 

mkl Major key length on indexed sequential files, 

rl Record length in characters. 

ex Address of exit subroutine to be entered when an error occurs (word addressable, index 

sequential or direct access files). The value of ex must not be zero. 

dx Address of end of the external subroutine to be entered at end of data for sequential files. 


CALL PUT (fit.wsa 


' r, '{wa}' kp ' pos ' ex) 


PUT places a record in a file. 

pos For duplicate key processing, value may be 1LP to precede the current record or 1LN to 

make it the next record. 

wsa,rl,ka,wa,kp,ex are the same as for GET. 
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CALL GETN (fit,wsa,ka,ex) 


GETN accesses the next record on the file. 


CALL DLTE (fit 


'{wa}' kp W x) 


DLTE deletes a record from the file. 

ka Key address of record to be deleted, 

wa Word address of record to be deleted. 

pos Value may be 1LC to specify the current (last referenced) record to be deleted, or zero to 

delete the first record in a duplicate key chain. 

fkp is not applicable to AK files. 
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INFORMATION ON THIS PAGE APPLIES ONLY TO THE CONTROL DATA 
CYBER 70/MODELS 72, 73 AND 74 AND 6000 SERIES COMPUTERS. 
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CALL REPLC (fit,wsa,rl.ka,kpTpos.ex) 


REPLC replaces an existing record with a record from the user’s record area. 

pos Value may be 1LC to specify the current Oast referenced) record to be replaced, or zero 

which will replace the fust record in a duplicate key chain. 


7 

n — 

i 

i 

f* 

CALL CHECK (fit) 


CHECK determines whether input/output operations on a fde are complete and upon completion returns control. 


7 

n — 

i 
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CALL SKIP (fit,+count) 


Repositions a file, 
count 


Number of logical records to be skipped; positive for a forward skip, negative for a backward 
skip. 


7 



CALL SEEKF (fit.ka.kpfmkl.ex) 


I 


SEEKF allows central memory processing to overlap input/output operations. 


7 ■■■— 
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CALL WEOR (fit.lev) 


WEOR terminates a section, and an S type record. 

lev Level number (any value 0 to 16B) to be appended if record type is S; default is zero. 


| fkp is not applicable to AK files. 
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7__ 

CALL WTMK (fit) 


Writes a tape-mark. 



7_ 

CALL ENDFILE (fit) 


Writes an end of partition. 


/ 


7_ 

CALL REWND (fit) 


REWND positions a tape file to the beginning of the current volume. It positions a mass storage file to the beginning 
of information. 


/ 


7_ 

jcALL GETP (fit,wsa,ptl,4LSKIP,dx) 


GETP retrieves partial records; it may be used to retrieve an arbitrary amount of data from a record, 
wsa Name of user’s record area to receive the record, 

pt) Partial transfer length. Number of characters to be transferred. 

skip Causes Record Manager to advance to next record before getting data if the value is 4LSKIP. 

Otherwise zero should be used. 

dx Name of end-of-data routine. 
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CALL PUTP (fit.wsa,ptl,rl,ex) 


Writes a portion of a record. 

wsa Address of user’s record area from which the record portion will be taken. 

p t j Partial transfer length specifies the number of characters to be transferred. 

r l Record length in characters (required only for U, W, and R type records). 

ex Address of error subroutine. 

KEY - HASHING SUBROUTINE FOR DIRECT ACCESS FILE 


A hashing subroutine is used to generate, from the key, an integer value for locating the record. 

A user-coded randomizing subroutine.may be specified for a DA file instead of the system-supplied default hash 
subroutine. A key analysis utility is available to help the user decide if his hash subroutine is more suitable for the 
file than the default subroutine. This subroutine should be added to a user library, as it must be supplied each time 

the file is processed. 

In the user’s main program the entry address of the hash subroutine must be declared external and set into the HRL. 
field of the FIT prior to the first open of the file. During processing of the file the hash subroutine is called by DA 

with the following argument list: 

Key length, in characters 
Key, left justified and zero filled 
Number of home blocks 
Returned result 

All arguments are integer, and the returned result must be non-negative. The value used is the returned result mod 
(number of home blocks minus one). 

The following example illustrates how subroutine MYHASH is specified for file MYFILE. The hash result is the 
product of the words of the key. 
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PROGRAMS 
INTEGER FIT(35) 

EXTERNAL MYHASH 

CALL FILE0A(FIT*3LLFN*6LMYFILE*3LHRL*MYHASH* . . •) 


• 

ENO 

SUBROUTINE MYHASH(KL*KEY*HMB*RESULT> 
INTEGER KEY(1)*HMB*RESULT 
KW*(KL*S)/10 
00 20 1*1*KW 

20 RFSULT*RESULT*KEY(I> 

RFTURN 

ENO 


ERROR CHECKING 

FORTRAN/Record Manager routines perform limited error checking to determine whether the call can be inter¬ 
preted, but actual parameter values are not checked. 

The following error conditions are detected, and a message appears in the dayfile: 

FIT ADDRESS NOT Array name was not specified. 

SPECIFIED 

FORMAT ERROR Parameters were not paired (FILExx), or required parameters were not speci¬ 

fied (STOREF, IFETCH or SKIP). 

UNDEFINED SYMBOL A file information table field mnemonic or symbolic option was specified 

incorrectly; for example, an incorrect spelling, or the of parameter in OPENM 
was not specified as R, N or E. 

Example of error message: 

ERROR IN STOREF CALL 

UNDEFINED SYMBOL IMPUT 
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MASS STORAGE INPUT/OUTPUT 


Mass storage input/output subroutines allow the user to create, access, and modify multi-record files on a 
random basis without regard for their physical position or internal structure. A random file can reside on 
any mass storage device for which Record Manager word addressable file organization is defined. Each 
record in the file may be read or written at random without logically affecting the remaining file contents. 
The length and content of each record is determined by the user. 

Six object time input/output subroutines control the transfer of records between central memory and mass 
storage. These routines employ the word addressable feature available through Record Manager (refer to 
Record Manager Reference Manual or 7000 SCOPE Reference Manual for details of this feature). 

_ 7 

/”j CALL OPENMS (u,ix,lngth,t) 

I 

I 


OPENMS opens the mass storage file and informs Record Manager that it is a random (word addressable) 
file. The array specified in the call arguments is automatically cleared to zeros. If an existing file is being 
reopened, the master index is read from mass storage into the index array. 

u Unit designator 

ix First word address in central memory of the array which will contain the index 

Ingth Length of index 

for a number index, Ingth 5 (number of records in file) + 1 
for a name index, Ingth > 2*(number of records in file) + 1 
t t = 0 file is referenced through a number master index 

t — 1 file is referenced through a name master index 


Example: 

DIMENSION 1(11) 

CALL OPENMS (5,1,11,0) 

Prepares for random input/output on unit 5 with an 11-word master index of the number type. If 
the file already exists, the master index is read into memory starting at address I. 


60305600 C 


III-7-1 



Transmits data from mass storage to centra! memory, 
u Unit designator 

fwa Address in central memory of first word of record 

n Number of 60-bit central memory words in the record to be transferred 

k Number index: k ■» 1 s k S Ingth - 1 

Name index: k =* any 60-bit quantity except ±0 

Example: 

CALL READMS (3,DATAMOR,26,2) 

7 _ 

CALL WRITMS (u,fwa,n,k,r,s) 

Transmits data from central memory to the selected mass storage device, 
u, fwa, n, k are the same as for READMS. 

r r= 1 rewrite in place. Unconditional request; fatal error occurs if new record length 

exceeds old record length. 

r = -l rewrite in place if space available, otherwise write at end of information 
r=0 no rewrite; write normally at end of information 
> The default value for r is 0 (normal write). The r parameter can be omitted if the s parameter is omitted, 
s s= 1 write sub-index marker flag in index control word for this record 

s = 0 do not write sub-index marker flag in index control word for this record 
Default value is 0 if s is omitted. 

The s parameter is included for future random file editing routines. Current routines do not test the flag, 
but the user should include this parameter in new programs when appropriate to facilitate transition to a 
future edit capability. 

Example: 

CALL WRITMS (3.DATA,25,6,1) 
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CALL STINDX (u,ix,lngth,t) 



STINDX selects a different array to be used as the current index to the file. The call permits a file to be 
manipulated with more than one index. For example, when the user wishes to use a sub-index instead of 
the master index, he calls STINDX to select the sub-index as the current index. The STINDX call does not 
cause the sub-index to be read or written; that task must be carried out by explicit READMS or WRITMS 
calls. It merely updates the internal description of the current index to the file. 

u, ix, lngth and t are the same as OPENMS. 

Examples: 

DIMENSION SUBIX (10) 

CALL STINDX (3,SUBIX,10,0) 


DIMENSION MASTER (5) 

CALL STINDX (2,MASTER,5) 



7_ 

CALL CLOSMS (u) 


The CLOSMS call is optional since its function is identical to that performed automatically by the FOR¬ 
TRAN object time routine SYSTEM when the run terminates. (SYSTEM and CLOSMS both write the 
master index from central memory to the file, and close the file.) CLOSMS is provided so that a file can be 
returned to the operating system before the end of a FORTRAN run, or to preserve a file created by an 
experimental job that may subsequently abort, or for other special circumstances. 

Example: 

CALL CLOSMS (2) 

ACCESSING A RANDOM FILE 

Random file manipulations differ from conventional sequential file manipulations. In a sequential file, 
records are stored in the order in which they are written, and can normally be read back only in the same 
order. This can be slow and inconvenient in applications where the order of writing and retrieving records 
differ and, in addition, it requires a continuous awareness of the current file position and the position of the 
required record. To remove these limitations, a randomly-accessible file capability is provided by the mass 
storage input/output subroutines. 

In a random file, any record may be read, written or rewritten directly, without concern for the position or 
structure of the file. This is possible because the file resides on a random-access rotating mass storage device 
that can be positioned to any portion of a file. Thus, the entire concept of file position does not apply to a 
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random file. The notion of rewinding a random file is, for instance, without meaning. 

To permit random accessing, each record in a random file is uniquely and permanently identified by a 
record key. A key is an 18- or 60-bit quantity, selected by the user and included as a READMS or 
WRITMS call parameter. When a record is first written, the key in the WRITMS call becomes the perma¬ 
nent identifier for that record. The record can be retrieved later by a READMS call that includes the same 
key, and it can be updated by a WRITMS call with the same key. 

When a random file is in active use, the record key information is kept in an array in the user’s field length. 
The user is responsible for allocating the array space by a DIMENSION, type or similar array declaration 
statement, but must not attempt to manipulate the array contents. The array becomes the directory or index 
to the file contents. In addition to the key data, it contains the word address and length of each record in 
the file. The index is the logical link that enables the mass storage subroutines, in conjunction with Record 
Manager, to associate a user call key with the hardware address of the required record. 

The index is maintained automatically by the mass storage subroutines. The user must not alter the contents 
of the array containing the index in any manner; to do so may result in destruction of the file contents. (In 
the case of a sub-index, the user must clear the array before using it as a sub-index; and read the sub-index 
into the array if an existing file is being reopened and manipulated. However, individual index entries 
should not be altered.) 

Under SCOPE, when a permanent file that was created by mass storage input/output routines is to be modified, the 
EXTEND control card should be used to ensure that the new index is made permanent. 

In response to an OPENMS call, the mass storage subroutines automatically clear the assigned index array. 
If an existing file is being reopened, the mass storage subroutines will locate the master index in mass 
storage and read it into this array. Subsequent file manipulations make new index entries or update current 
entries. When the file is closed, the master index is written from the array to the mass storage device. When 
the file is reopened, by the same job or another job. the index is again read into the index array space 
provided, so that file manipulation may continue. 


INDEX KEY TYPES 

There are two types of index key, name and number. A name key may be any 60-bit quantity except +0 or 
-0. A number key must be a simple positive integer, greater than 0 and less than or equal to (lngth - 1). The 
user selects the type of key by the (t) parameter. The key type selection is permanent. There is no way to 
change the key type, because of differences in the internal index structure. If the user should inadvertently 
attempt to reopen an existing file with an incorrect index type parameter, the job will be aborted. (This does 
not apply to sub-indexes chosen by STINDX calls, proper index type specification is the sole reponsibility 
of the user.) In addition, key types cannot be mixed within a file. Violation of this restriction may result in 
destruction of a file. 

The choice between name and number keys is left entirely to the user. The nature of the application may 
clearly dictate one type or the other. However, where possible, the number key type is preferable. Job 
execution will be faster and less central memory space will be required. Faster execution occurs because it is 
not necessary to search the index for a matching key entry (as is necessary when a name key is used). Space 
is saved due to the smaller index array length requirement. 
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Example: 


PROGRAM MSI (TAPE3) 

C CREATE RANDOM FILE WITH NUMBER INDEX. 

DIMENSION INDEX{11) , DATA(25) 

CALL OPENMS (3.INDEX,11.0) 

DO 99 NRKEY-1,10 
C 
C 

C (GENERATE RECORD IN ARRAY NAMED DATA.) 

C 

C 

99 CALL WRITMS (3,DATA,25.NRKEY) 

STOP 

END 


PROGRAM MS2 (TAPE3) 

C MODIFY RANDOM FILE CREATED BY PROGRAM MSI. 

C NOTE LARGER INDEX BUFFER TO ACCOMMODATE TWO NEW 
C RECORDS. 

DIMENSION INDEX(13), DATA(25), DATAMOR(40) 
CALL OPENMS (3,INDEX,13,0) 

C READ 8TH RECORD FROM FILE TAFE3. 

CALL READMS (3,DATA,25,8) 

C 

C 

C (MODIFY ARRAY NAMED DATA.) 

C 

C . 

C WRITE MODIFIED ARRAY AS RECORD 8 AT END OF 
C INFORMATION IN THE FILE 

CALL WRITMS (3,DATA,25,8) 

C READ 6TH RECORD. 

CALL READMS (3,DATA,25,6) 

C 

C 

C (MODIFY ARRAY.) 

C 
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c REWRITE MODIFIED ARRAY IN PLACE AS RECORD 6. 

CALL WRITMS {3,DATA,25,6,1) 

C READ 2ND RECORD INTO LONGER ARRAY AREA. 

CALL READMS (3,DATAMOR,25,2) 

C 

C 

C (ADD 15 NEW WORDS TO THE ARRAY NAMED DATAMOR.) 

C 

C 

C CALL FOR IN-PLACE REWRITE OF RECORD 2. IT WILL 
C DEFAULT TO A NORMAL WRITE AT END-0F-INFORMATION 
C SINCE THE NEW RECORD IS LONGER THAN THE OLD ONE, 
C AND FILE SPACE IS THEREFORE UNAVAILABLE. 

CALL WRITMS (3,DATAMOR,40,2,-1) 

C READ THE 4TH AND 5TH RECORDS. 

CALL READMS (3,DATA,25,4) 

CALL READMS (3,DATAMOR,25,5) 

C 

C 

C (MODIFY THE ARRAYS NAMED DATA AND DATAMOR.) 

C 

C 

c WRITE THE ARRAYS TO THE FILE AS TWO NEW RECORDS. 
CALL WRITMS (3,DATA,25,11) 

CALL WRITMS (3,DATAMOR,25,12) 

STOP 

END 


PROGRAM MS3 (TAPE7) 

C CREATE A RANDOM FILE WITH NAME INDEX. 

DIMENSION INDEX(9), ARRAY(15,4) 

DATA REC1, REC2/ 7HREC0RD1,5*REC0RD2^/ 
C 
C 

c (GENERATE DATA IN ARRAY AREA.) 


C WRITE FOUR RECORDS TO THE FILE. 
C KEY NAMES ARE RECORD(N). 


NOTE THAT 


CALL 

WRITMS 

(7,ARRAY(1,1),15,RECI) 

CALL 

WRITMS 

(7,ARRAY(1,2),15,REC2) 

CALL 

WRITMS 

(7,ARRAY(1,3),15,7RREC0RD3) 

CALL 

WRITMS 

(7,ARRAY(1,4) ,15,=*REC0RD4^) 

CLOSE THE FILE. 


CALL 

CLOSMS 

(?) 


STOP 

END 


MULTI-LEVEL FILE INDEXING 

When a file is opened by an OPENMS call, the mass storage routines clear the array specified as the index 
area, and if the call is to an existing file, locates the file index and reads it into the array. This creates the 
initial or master index. 


The user can create additional indexes (sub-indexes) by allocating additional index array areas, preparing 
the area for use as described below, and calling the STINDX subroutine to indicate to the mass storage 
routine the location, length and type of the sub-index array. This process may be chained as many times as 
required, limited only hy the amount of central memory space available. (Each active sub-index requires an 
index array area.) The mass storage routine uses the sub-index just as it uses the master index; no distinc¬ 
tion is made. 

A separate array space must be declared for each sub-index that will be in active use. Inactive sub-indexes 
may, of course, be stored in the random file as additional data records. 

The sub-index is read from and written to the file by the standard READMS and WRITMS calls, since it is 
indistinguishable from any other data record. Although the master index array area is cleared by OPENMS 
when the file is opened, STINDX does not clear the sub-index array area. The user must clear the sub-index 
array to zeros. If an existing file is being manipulated and the sub-index already exists on the file, the user 
must read the sub-index from the file into the sub-index array by a call to READMS before STINDX is 
called. STINDX then informs the mass storage routine to use this sub-index as the current index. The first 
WRITMS to an existing file using a sub-index must be preceded by a call to STINDX to inform the mass 
storage routine where to place the index control word entry before the write takes place. 

If the user wishes to retain the sub-index, it must be written to the file after the current index designation 
has been changed back to the master index, or a higher level sub-index by a call to STINDX.f 


fSince the file is closed automatically at job termination, it is no longer necessary as it was under previous 
versions of FORTRAN Extended, for the user to reset the master index before closing the file. 


60305600 A 


III-7-7 


INDEX TYPE 


MASTER INDEX 

The master index type for a given file is selected by the t parameter in the OPENMS call when the index h 
created. The type cannot be changed after the file is created: attempts to do so by reopening the file with 
the opposite type index are treated as fatal errors. 


SUB-INDEX 

The sub-index type can be specified independently for each sub-index. A different sub-index name/number 
ume S (; in be specified' by including the t parameter in the ST1NDX call. If t is omitted, the index type 
remains the same as the current tndex. Intervening calls which omit the t parameter do not change the mos 
recent explicit type specification. The type remains in effect until changed by another STINDX call. 

STINDX cannot change the type of an index which already exists on a file. The user must ensure that the t 
plramefer In a ^ m an exisSg index agrees with the type of the index in the file. Correct sub-mdex type 
specification is the responsibility of the user; no error message is issued. 

Example: 


PROGRAM MS4 (TAPE2) 


C GENERATE SUBINDEXED FILE WITH NUMBER INDEX. FOUR 
C SUBINDEXES WILL BE USED, WITH NINE DATA RECORDS 
C PER SUBINDEX, FOR A TOTAL OF 36 RECORDS. 

DIMENSION MASTER(5), SUBIX(IO), REC0RD(50) 

CALL OPENMS (2.MASTER,5,0) 

DO 99 MAJOR-1,4 

C CLEAR THE SUBINDEX AREA. 

DO 77 1-1,10 
77 SUBIX(I)=0 

C CHANGE THE INDEX IN CURRENT USE TO SUBIX. 

CALL STINDX (2,SUBIX,10) 

C GENERATE AND WRITE NINE RECORDS. 

DO 88 MINOR-1,9 
C 
C 
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C WRITE A RECORD. 

88 CALL WRITMS (2,RECORD,50.MINOR) 

C CHANGE BACK TO THE MASTER INDEX. 

CALL STINDX (2,MASTER,5) 

C WRITE THE SUBINDEX TO THE FILE. 

CALL WRITMS (2,SUBIX,10,MAJOR.0,1) 

99 CONTINUE 

C READ THE 5TH RECORD INDEXED UNDER THE 2ND SUBINDEX. 
CALL READMS (2,SUBIX,10,2) 

CALL STINDX (2,SUBIX,10) 

CALL READMS (2.RECORD,50,5) 

C 

C 

C (MANIPULATE THE SELECTED RECORD AS DESIRED.) 

C 

C 

STOP 

END 


PROGRAM MS5 (INPUT,OUTPUT,TAPE9) 

C CREATE FILE WITH NAME INDEX AND TWO LEVELS OF SUBINDEX. 

DIMENSION STATE(101), C0UNTY(501), CITY(501), ZIF(IOO) 
INTEGER STATE, COUNTY, CITY, ZIP 

10 FORMAT (A10.I10) 

11 FORMAT (110) 

12 FORMAT (5X.8I15) 

CALL OPENMS (9,STATE,101,1) 

C READ MASTER DECK CONTAINING STATES, COUNTIES, CITIES 

C AND ZIP CODES. 

DO 99 NRSTATE=1,50 
READ 10,STATNAM, NRCNTYS 

C CLEAR THE COUNTY SUBINDEX. 

DO 21 1-1,501 
21 COUNTY(I)=0 
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DO 98 NRCN=1.NRCNTYS 
READ 10, CNTYNAM, NRCITYS 

C CLEAR THE CITY SUBINDEX. 

DO 31 1=1,501 
31 CITY(I ) =0 

CALL STINDX (9,CITY,501) 

DO 97 NRCY=1.NRCITYS 
READ 10, CITYNAM, NRZIP 

DO 96 NRZ=1,NRZIP 

96 READ 11,ZIP(NRZ) 

97 CALL WRITMS (9,ZIP,100,CITYNAM) 

CALL STINDX (9,COUNTY,501) 

98 CALL WRITMS (9,CITY,501,CNTYNAM) 

CALL STINDX (9,STATE,101) 

99 CALL WRITMS (9,COUNTY,501,STATNAM) 

C FILE IS GENERATED. NOW PRINT OUT LOCAL ZIP CODES. 

CALL STINDX (9,STATE,101) 

CALL READMS (9,COUNTY,501, ^CALIFORNIA? 6 ) 

CALL STINDX (9,COUNTY,501) 

CALL READMS (9,CITY,501,^SANTACLARA? 6 ) 

CALL STINDX (9,CITY,501) 

CALL READMS ( 9 , ZIP, 100, #SUNNYVALE^) 

PRINT 12, ZIP 

CALL STINDX (9,STATE,101) 

STOP 

END 
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ERROR MESSAGES 


Random file processing errors are fatal; the job terminates and one of the following error messages is 
printed: 

97 INDEX NUMBER ERR 

The index number key is negative, zero, or greater than the index buffer length minus one. 

98 FILE ORGANIZATION OR RECORD TYPE ERR 

During the initial OPENMS call, mass storage routines set the file organization as word address¬ 
able (FO = WA) and the record type to W (RT = W). A conflicting file organization or record type 
was specified in an external subroutine call or FILE control card. 

99 WRONG INDEX TYPE 

An attempt was made to open an existing file with the wrong index type parameter. File index type 
is permanently determined when a file is created. 

100 INDEX IS FULL 

WRITMS was called with a name index key. and the end of the index buffer occurred before a 
match was found. Either the name key is in error, or the buffer must be lengthened. 

101 DEFECTIVE INDEX CONTROL WORD 
This message may occur for either of two reasons: 

1. An OPENMS for an existing file found the master index control word has been destroyed. Since 
this word was properly set when the file was last closed, the user should check for an external 
cause of file destruction. 

2. A READMS or WRITMS call has encountered a defective index control word. Check for an 
improperly cleared sub-index array, for a program sequence that writes into an index array (other 
than the required initial zeroing) or for an external cause of file destruction. 

102 RECORD LENGTH EXCEEDS SPACE AVAILABLE 

1. During an OPENMS call, not enough index buffer space was provided for the master index of an 
existing file. 

2. During a WRITMS call with in-place rewrite requested (r= + I), the new record length exceeded 
the old record length. 

103 6RM/7DM I/O ERR NUMBER 000 

Record Manager has detected an error; the actual error number appears in the message. Refer to 
Record Manager Reference Manual to identify the source of the error. 

104 INDEX KEY UNKNOWN 

No data record exists for the user’s index key. This error may be diagnosed for a READMS call or 
for a WRITMS call with rewrite requested (r= + 1). 
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COMPATIBILITY WITH PREVIOUS MASS STORAGE ROUTINES 

FORTRAN Extended mass storage routines and the files they create are not compatible with mass storage 
routines and files created under earlier versions of FORTRAN Extended. Major internal differences in the 
file structure were necessitated by adding the Record Manager interface. However, source programs are 
fully compatible. Any source program that compiled and executed successfully under earlier versions wdl do 
so under this version, provided that all file manipulations were and continue to be executed by mass storage 
routines. 
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The following information will he useful only to the assembly language programmer. 


REGISTER NAMES 

The compiler changes some legal FORTRAN names so that FORTRAN object code can be used as COM¬ 
PASS input. When a two-character name begins with A. B. or X and the last character is 0 to 7. the 
compiler adds a currency symbol (S) to the name for the object code listing. (A0-A7. B0-B7. and X0-X7 
represent registers to the COMPASS assembler which may be used by the FORTRAN Extended compiler). 

EXTERNAL PROCEDURE NAMES (PROCESSOR SUPPLIED) 

CALL-BY-VALUE 

The name of a system supplied external procedure called by value is suffixed with a decimal point. The 
entry point is the symbolic name of the external procedure and a decimal point suffix. For example. FXP. 
COS. CSQRT. 

The names of all external procedures called by value are listed in table 8-2 Basic External Functions, section 
8. part 1. A procedure will not be called by value and the name will not be suffixed with a decimal point if 
it appears in an EXTERNAL statement or if the control card options T. D. or OPT = 0 are specified. 

CALL-BY-NAME 

The call-by-name entry point is the symbolic name of the external procedure with no suffix. 

External procedures called by name appear in section 8. part 1 under the heading Additional Utility 
Subprograms. Any name which appears in table 8-1 Intrinsic Functions or table 8-2 Basic External Func¬ 
tions will be called by name also if the control card options T. D. or OPT = 0 are specified or if it appears 
in an EXTERNAL statement. 
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PROGRAM AND MEMORY STRUCTURE 


111-9 


The following table shows the general form of a FORTRAN program unit. Statements within a group may 
appear in any order, but groups must be ordered as shown. Comment lines can appear anywhere within the 
program. 


STATEMENTS 


1 

OVERLAY 

2 

PROGRAM* 

FUNCTION* 

SUBROUTINE* 

BLOCK DATA 

3 

IMPLICIT 

4 

type 

COMMON 

DIMENSION 

EQUIVALENCE 

EXTERNAL* 

LEVEL 

* 

F 

0 

R 

M 

A 

T 

5 

Statement function* 

definitions 

Nt 

A* 

M 

E 

L 

1 

S 

T 

D 

A 

T 

A 

6 

ENTRY* 

Executable 

statements* 

7 

END 


* Not allowed in BLOCK DATA Subprograms 
t Namelist group name must be defined before it is used 


The following description of the arrangement of code and data within PROGRAM, SUBROUTINE and 
FUNCTION program units does not include the arrangement of data within common blocks because this 
arrangement is specified by the programmer. However, the diagram of a typical memory layout at the end 
of this section illustrates the position of blank common and labeled common blocks. 


60305600 B 


III-9-1 



SUBROUTINE AND FUNCTION STRUCTURE 

The code within subprograms is arranged in the following blocks (relocation bases) in the order given. 
START. Code for the primary entry and for saving AO 

VARDIM. Address substitution code and any variable dimension initialization 

code 

Either a full word of NO’s or nothing 

Code generated by compiling: 

Executable statements 

Parameter lists for external procedure references within the current 
procedure 

Storage statements 

DO loops and optimizing temporary use 

Storage for simple variables, FORMAT statements, and program 
constants 

DATA.. Storage for arrays other than those in common 

HOL. Storage for Hollerith constants 

FORMAL 

PARAMETERS. One local block for each dummy argument in the same order as they 

appear in the subroutine statement, to hold tables used in address 
substitution for processing references to dummy arguments 


ENTRY 

CODE. 


DATA. 
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MAIN PROGRAM STRUCTURE 


START. Input/output file buffers and a table of file names specified in the 

program statement 

CODE. Transfer address code plus the code specified for the subroutine and 

function CODE, block 

DATA. 

DATA.. Same as SUBROUTINE and FUNCTION structure 

HOL. 


MEMORY STRUCTURE 

Memory is not cleared, and subprograms are loaded as they appear in the input file starting at the pro¬ 
gram’s reference address (RA) + 100B, toward the user’s field length (FL). RA to RA + 100B is the 
communication region used by the operating system. Labeled common blocks are loaded prior to the 
subprogram in which they are first referenced. Library routines are loaded immediately after the last 
subprogram and are followed by blank common. 

Typical memory layout: 
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INTERMIXED COMPASS SUBPROGRAMS 
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Both SUBROUTINES and FUNCTIONS may be written in COMPASS Assembly language and called from a 
FORTRAN source program. For either, register AO is the only register that must be restored to its initial condition 
when the subprogram returns control to the calling routine. 

When a FORTRAN generated subprogram is called, the calling routine must not depend on values being preserved 
in any registers other than AO. 

COMPASS CODED SUBROUTINES 

Subroutines always use the call by name sequence described in section 1-7 and discussed below with the description 
of COMPASS coded functions. SUBROUTINES need not load a value into registers X6 and X7, otherwise the rules 
are the same as for FUNCTIONS described below. 

CALL BY NAME SEQUENCE 

The FORTRAN compiler uses the call by name sequence in the following circumstances: 

A subroutine or function name differs from any of those listed in tables 8-1 and 8-2. 

A listed subroutine or function also appears in an EXTERNAL statement, or the program unit specifies D, T, 
or OPT=0 on the FTN control card. 

The call by name sequence generated is shown below: 

SA1 Address of the argument list (if parameters appear) 

+RJ Subprogram name 

-VFD 12/line number, 18/trace word address 

line number Source line number of statement containing the reference 

trace word 

address Address of the trace word for the calling routine 

Arguments in the call must correspond with the argument usage in the called routine, and they must reside in 
the same level. 
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The argument list consists of consecutive words of the form: 

VFD 60/address of argument 
followed by a zero word. 

| The sign bit will be set in the argument list for any argument entry address that is LCM§ or ECS4 

ENTRY POINT 

For subprograms written in FORTRAN, the compiler uses the following conventions in generating code: 

The entry point of the subprogram (for reference by an RJ instruction) is preceded by two words. The first is a trace 
word for the subprogram; it contains the subprogram name in left justified display code (blank filled) in the upper 
42 bits and the subprogram entry address in the lower 18 bits. The second word is used to save the contents of AO 
upon entry to the subprogram. The subprogram restores AO upon exit. 


Trace word: 

VFD 

42/name, 18/entry address 

A0 word: 

DATA 

0 

Entry point: 

DATA 

0 


COMPASS SUBPROGRAMS 

Subprograms in COMPASS assembly language can be intermixed with FORTRAN coded subprograms in the source 
deck. COMPASS subprograms must begin with a card containing the word IDENTb, in columns 11-16, and 
terminate with a card containing the word ENDb, in columns 11-14 (b denotes a blank). Columns 1-10 of the 
IDENT and END cards must be blank. 


1 11 _16 


r —1 

IDENT 1 



blank 

§ 

jjj*— 

— blank 


1 11 14 


i&kS • i 

•XvXvX*XvX*X*X*X*XvX*X*X%vXv 

END 



.. blank 





§ Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 

$This information applies only to the CONTROL DATA CYBER 70/Models 72, 73 and 74 and 6000 Series 
computers. 
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If the COMPASS subprogram changes the value of AO, it must restore the initial contents of AO upon returning 
control to the calling subprogram. When the COMPASS subprogram is entered by a function reference, the result of 
that function must be in X6 or X6 and X7 with the least significant or imaginary part of the double precision or 
complex result appearing in X7. 

Example: 

The following page contains an example of a simple COMPASS Function and the calling FORTRAN main program. 
The parity function, PF, returns an integer value, therefore, it must be declared integer in the calling program. The 
argument to PF may be either real or integer. 

The title and comments are unnecessary; they are included to encourage good programming practice. The following 
statement is a recommended convention: 

PF EQ *+lS17 ENTRY/EXIT 

It will cause a jump to 400,000 g plus the location of the routine if the function is not entered with a return jump, 
a mode error will occur that can quickly be identified. Since AO is not used in this subprogram it need not be 
restored. 
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SOURCE DECK 


job card 
MAP(OFF) 


FTN(R=0) 

LOO. 

7/8/9 in column 1. \ 

poogpam npsamp(Output) J 

INTFGFR PF, PVALIP4) I 

0011 = 1,24 [ 

1 PVAL<I)=PF(I> \ main program 

PRINT?. ( I , 1 = 1 ,P4) ,P'/AL ( 

? FOPMAT(3?HOINTEGERS AND THEIR PARITY RELOW/<?413>> \ 

STOP I 

END / 

I DENT PF 
ENTRY PF 

PF TITLE PF - COMPUTE PARITY OF WORD. 

COMMENT COMPUTE PAR ITY OF WOPO. 


PF 

SPACE 

4.1 1 



PF - 

COMPUTE RARITY OF 

WORD. 


FORTRAN SOURCE CALL — 


o 


PARITY = PF (ARC,) 


o 

RESULT 

= 1. IFF ARC HAS 

ODD NUMBER OF HITS SET. 

« 


= 0, OTHERWISE. 



ENTRY 

(XI) = ADORESS OF 

ARGUMENT. 

o 

EXIT 

<X6) = RESULT. 



PF 

FO 

*♦1517 

ENTPY/EXIT... 



SAi? 

XI-- 


-gel the atgumeni value 


CX 3 

XP—- 


- count the 1 bits in X2 and leave result in X3 


MX0 

-1-- 


-form a mask in X0 


PXG 

-X0*X3 

ISOLATE LOWEST 

H I W- put result into X6 


F O 

PF 

EXIT.. 



FND 




S/7/8/9 

in column 

1 . 




OUTPUT 


INTEC-EFS 
1 Z 3 
1 1 0 


AFC T E EI 

4 t 6 

1 C G 


PARITY 

7 8 9 

110 


ELOH 
10 11 it 
0 1 0 


13 14 15 
110 


16 17 IB 19 20 21 22 23 24 
100101100 
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LIBRARY FUNCTION CALL BY VALUE SEQUENCE 

For increased efficiency the compiler generates a call by value code sequence for references to library functions if 
the function name does not appear in an EXTERNAL statement and the D, T, or OPT=0 options on the FTN 
control card are not specified. The name of any library function called by value or generated in line must appear in 
an EXTERNAL statement in the calling routine if the call by name calling sequence is required (section 8, part 1 lists 
the library functions called by value and generated in-line). 

The call by value code sequence consists of code to load the arguments into XI through X4, followed by an RJ 
instruction to the function. The second register loaded for a double precision or complex argument contains the least 
significant or imaginary part of the argument. 


RESTRICTIONS ON USING LIBRARY FUNCTION NAMES 

Functions written in FORTRAN that have library function names listed in tables 8-1 or 8-2, such as AMAX1 or 
SQRT, must be declared EXTERNAL in the calling program unit. This declaration is necessary because the compiler 
produced functions always use the call by name calling sequence. 

Functions written in COMPASS that have basic external library names listed in table 8-2, such as SQRT, should be 
written using the call by name sequence when they are declared EXTERNAL in the calling routine; or they should 
use the call by value rules if they are not declared EXTERNAL. 

Functions written in COMPASS that have intrinsic library names listed in table 8-1, such as AMAX1, must be 
declared EXTERNAL in the calling routine; otherwise in-line coding is generated for them (the COMPASS coding is 
ignored). Furthermore, the call by name sequence must be used. 

If a library function, called by value, is to be overridden by a routine coded in COMPASS, the COMPASS routine 
must use the library function name with a period appended as the entry point name (e.g., SIN.) to use the call by 
value calling sequence. 

The following sample illustrates the code generated for: a library function call, SQRT; an external function call, 
ZEUS; and a reference to an intrinsic (in-line) function, AMAX1. 


The coding generated for the external function, ZEUS, is illustrated also. 


MAP(OFF) 

FTM(K=0.LO) 

7/8/9 in column 1 

PROGRAM SlIRLNK 
assort( 7.o) 

YcZfclOS (A, 1 . ()) 

ENU 

FUNCTION 7E US (ARGl . AP.G2) 
ZeOS=AMAXl(A pG1»ARG2«0.) 
HEIUPtJ 
ENU 

6/7/8/9 in column 1 
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PRCGRAN 


SUBINK 


FROGRAN SUBLNK 
X*SQRT(7.0) 

Y* ZEUS ( X j 1.0) 
END 



FRCGRAX SUBLNK 


1DENT SUBLNK 

USE 6 IK 

LOSET LIB»FORTRAN/SVSIC 

USE START. 


000000 START. 
000001 START. 


C00002 COOE. 


000013 OATA. 
000013 OATA. 
000014 CATA. 


COCO IE OATA. 
G00016 OATA. 

OOOOC3 COOE. 

C0CQ04 COOE. 

000005 CODE. 

ooojoe ccce• 

000007 CCOE. 
000010 COOE. 
000010 COOE. 
000011 CCOE. 
000912 COCE. 


000000 

000002 

START. 

LOCAL 

000002 

000000 

VAROIH. 

LOCAL 

000002 

000000 

ENTRY . 

LOCAL 

000002 

000011 

COOE. 

LOCAL 

000013 

000004 

OATA. 

LOCAL 

000017 

000000 

OATA. . 

LOCAL 

000017 

000000 

HOL. 

LOCAL 

EXTERNALS 



ENO. 

ZEUS 

SORT. 

Q8NTRV. 



FILES. BSS 

i OB 

77777766167 


OATA 

77777777777777766167B 

61355000002 


TRACE 

SUBLNK,SUBLNK 


5110000000 START. 

OlOOOCOOOO «EXT> 


17227000000000000000 
17204000C00 000000000 


5110000013 

C 

5110000010 


0100000000 


0100000000 


5100000015 

0 

0003000001 


5110000001 


5160000016 

04000 0000 C 

00000000000 0C0000015 
00000000000000000014 

oocoooccooooocoooooo 


OATA. 

<EXT> 

COOE. 

OATA. 

<EXT> 

START. 

START. 

OATA. 

<EXT> 

OATA. 

OATA. 


USE COOE. 

PEN TRY SUBLNK 
SA1 FILES. 

RJ Q8NTRY. 

USE OATA. 

USE DATA.. 

USE OATA. 

CON. BSS OB 

OATA 1722700000000000000 OB 
OATA 172040000000000000OCB 
EXT ENO. 

EXT ZEUS 

EXT SORT. 

EXT QONTRV. 

X BSS IB 

IB 


> content table 


BSS 
USE COOE. 
SA1 CON.-*- 


RJ SORT. 

¥ SA1 lAPl-o- 

SA6 X 
t RJ ZEUS 

- VFO 12/38,10/TRACE 
¥ SA1 TRACE. 

SA6 Y 
EQ ENO. 

{API BSS OB ) 

VFO 60/X 
VFO 60/CON.*1B 
OATA 08 
ENO SUBLNK 


■ gu actual parameter into XI 

■ get iMat of parameter list into XI 


- tourc* On* number and a pointer to 
the name of the program unit. 


parameter aMraaelirt 


IIMO-6 
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FUNCTION 


ZEUS 


FUNCTION ZEUS(ARG1,ARG2) 
ZEUS=AMAX1(ARG1,ARG2,0.» 
RETURN 
ENO 



FUNCTION ZEUS 


IOENT ZEUS 

USEBLK 

LDSET' LIE=FORTRAN/SYSIC 
USE START. 




GGOOOO 0000C4 

START 

. LOCAL 



000004 OGOOGO 

VARDI 

M. LOCAL 



OOOOOw 000000 

ENTRY 

. LOCAL 



GG0004 000007 

CODE. 

LOCAL 



G00013 000001 

DATA. 

LOCAL 



G00G14 000000 

DATA. 

. LOCAL 



000014 oooooc 

HOL. 

LOCAL 



000014 000000 

ARG1 

LOCAL 



G00014 000000 

ARG2 

LOCAL 

GCGGCO 

START. 

32C5 2523 555 55SOOOQ02 >r 'oOOOOO 

TRACE ZEUS,ZEUS,2E 

GOGOtl 

START. 

OOGOOOOCOOO 0 0 000000 0^- 



G00002 

START. 

04C 04 0GCG26 10CG4600(H^^ 

PENTRY ZEUS »ENT RY, 

CCC003 

START. 

74E 005 40105 lfcOGGOOOwC- 

1 





FORPAR ARG1 




FORFAR ARG2 




USE 

DATA. 




USE 

DATA.. 




USE 

DATA. 

G00013 

0 A 7 A . 


VALUE, 

. BSS IB 




USE 

CODE . 

CGG0G4 

CCCE. 

54500 

+ SA5 

AO 



504 0 00 0 0 G1 

SA4 

A0 + 1B 



43000 

NX 0 

0 

GODOC5 

C COE • 

53350 

SA3 

X5 



535 r.0 

SA5 

X4 



31735 

FX7 

X3-X5 



46000 

NO 


GQ0006 

C COE. 

5140000CG1 START. 

SA4 

TEHPAO. 



5304C 

SAO 

X4 



21773 

AX 7 

73B 

G00007 

CODE. 

15637 

BX 6 

-X7*X3 



11475 

BX4 

X7*X5 



36746 

1X7 

X4 6X6 



31670 

FX6 

X7-X0 

GUC01G 

CODE. 

21673 

AX6 

73B 



11560 

BX5 

X6* X 0 



15076 

BX 0 

-X6*X7 



36750 

1X7 

X5 + X0 

C 0 0 011 

CCCE. 

106 77 

BX6 

X7 



5170000013 DATA. 

SA7 

VALUE. 



46000 

NO 


000012 

CCOE. 

04G00 0000 2 START. 

EQ ENTRY. 


END 


■ name of program unit 
and entry point address 

cell to save AO in 

entry point 
saves AO and sets AO 
to the new At 
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TERMINAL I/O WITH FORTRAN f 
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If a FORTRAN program to be run under SCOPE’S INTERCOM or the KRONOS Time-Sharing System calls for 
input/output operations through the user’s remote terminal, all files to be accessed through the terminal must 
be formally associated with the terminal at the time of execution. 

In particular, the file INPUT must be connected to the terminal if data is to be entered there and an alternate 
logical unit is not designated in the READ statement. The file OUTPUT must be connected to the terminal if 
execution diagnostics are to be displayed or printed at the terminator if data is to be displayed or printed 
there and an alternate logical unit is not designated in the WRITE or PRINT statement. These files are auto¬ 
matically connected to the terminal when the program is executed under the RUN command of the EDITOR 
utility of INTERCOM. 

For a FORTRAN program run under INTERCOM, any file (including INPUT and OUTPUT ) can be connected 
to the terminal by the CONNECT command. In addition, the user can connect any file from within the pro¬ 
gram by using either of the statements: 

CALL CONNEC (fd,cs) 

CALL CONNEC (fd) 

fd file designator: fd can be a logical unit number u, a Hollerith constant nLfilename, or a 
simple integer variable with a value of u or nLfilename. u is an integer constant. 

1 to 99 (associated by the compiler with the file name TAPEu); filename is a file name of 
1 to 6 letters or digits beginning with a letter. 

cs character set designator: cs should be an integer constant or an integer variable with a 

value of 0 to 2, in accordance with the character code set to be used for the data entered 
or displayed at the terminal: 

0 display code 

1 ASCII-95 code 

2 ASCII-256 code 


tApplies only to CONTROL DATA CYBER 70/Models 72, 73, 74, and 6000 Series computers using INTER¬ 
COM or the KRONOS Time-Sharing System. For more information about INTERCOM, see the INTERCOM 
Reference Manual and the INTERCOM Interactive Guide for Users of FORTRAN Extended. For more infor¬ 
mation about KRONOS, see the KRONOS 2.1 Reference Manual and the KRONOS 2.1 Time-Sharing User’s 
Reference Manual. 
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If cs is not specified, it is set to 0. If display code is selected, input/output operations should be formatted, 
list-directed, NAMELIST, or buffered. If either of the ASCII codes is selected, input/output operations should 
be either formatted or buffered. When a CALL CONNEC specifies a file already connected with the character 
set specified, the call is ignored. If the file specified is already connected with a character set other than that 
specified, cs is reset accordingly. 

Data input or output through a terminal under INTERCOM is represented ordinarily in a CDC 64-character, 
ASCII 64-character, or CDC 63-character set, depending on installation option. For these sets, ten characters 
in 6-bit display code are stored in each central memory word. As described above, a terminal user can specify 
from within a FORTRAN program that data represented in an ASCII 95-character set (providing the capability 
for recognizing lowercase letters) or an ASCII 256-character set (providing the capability for recognizing lower¬ 
case letters, control codes, and parity) be input or output through the terminal. For the ASCII 95-character 
and 256-character sets, characters are stored in five 12-bit bytes in each central memory word. Characters in 
the ASCII 95-character set are represented in 7-bit ASCII code right justified in each byte with binary zero 
fill; characters in the ASCII 256-character set are represented in 8-bit ASCII code right justified in each byte 
with binary zero fill. When data represented in either ASCII character set code is transferred with a formatted 
I/O statement, the maximum record length should be specified in the PROGRAM statement as twice the number 
of characters to be transferred (see section 1-7). 

When the ASCII 95-character or 256-character set has been specified for terminal input/output under INTER¬ 
COM, blanks following the end of data on each line are not translated into ASCII code but are retained in 
display code (as 55g). Unless the user eliminates them, these blanks will appear on output as lowercase m 
characters (two blanks in display code translates to one m in ASCII code). For formatted input, the user 
can identify the end of data on a line by scanning data entered in nR2 format until the Hollerith constant 
2Rbb (b = blank) is found. For buffered input, the end can be determined by reading the data into an array, 
manipulating it with a DECODE statement, and then scanning as with formatted input. 

For a FORTRAN program run under KRONOS, any file can be connected to the terminal by the ASSIGN 
command. In addition, the user can connect any file from within the program by using the statement: 

CALL CONNEC (fd) 

fd, the file designator, should be specified as described above for programs run under INTERCOM. 

Data input or output through a terminal under KRONOS is represented ordinarily in a standard 61-character 
set. On input, the user can elect to enter data represented in an ASCII 128-character set (which provides the 
capability for recognizing control codes and lowercase letters) by entering the ASCII command. Characters 
contained in the standard set are stored internally in 6-bit display code, whether or not the ASCII command 
has been entered. The additional characters which complete the ASCII 128-character set are stored internally 
in 12-bit display code if the ASCII command has been entered; otherwise, they are mapped into the standard 
61-character set and stored internally in 6-bit display code. On output, all data is represented in the standard 
set; thus, when data is input through the terminal with the ASCII command in effect, it is mapped into the 
standard set on output. (See the KRONOS 2.1 Reference Manual, section 9.) 

Under both SCOPE and KRONOS, if a file specified in a CALL CONNEC exists as a local file but is not 
connected at the time of the call, the file’s buffer is flushed before the file is connected to the terminal. 

Any file can be disconnected from within a FORTRAN program by the statement: 

CALL DISCON (fd) 
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This request is ignored if the specified file is not connected. After execution of this statement, the specified 
file remains local to the terminal. In addition, if the file existed prior to connection, the file name is 
re-associated with the information contained on the device where the file resided prior to connection. Data 
written to a connected file is not contained in the file after it is disconnected. 

All files to be connected or disconnected during program execution must be declared in the PROGRAM 
statement. An attempt to connect or disconnect an undeclared file results in a diagnostic fatal to execution. 

Calls to CONNEC and DISCON are ignored when programs are not executed under INTERCOM or KRONOS. 

Examples: 

CALL CONNEC (6) 

K * PLAGES 
CALL CONNEC (K > 

CALL CONNEC (6*2) 

CALL CONNEC (‘♦LOATA * 1) 

CALL DI5C0N (b) 
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LISTINGS 
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During a typical compilation and execution, the following listings are produced: 
source program 
reference map 
core map 

A header line at the top of each page of compiler output contains the program unit type and name, the 
machine used and the target machine for which the compiler was assembled, control card options, compiler 
version and mod-level, date, time, and page number. 

The source program is listed 60 lines per page (including headers); every fifth source line is numbered. These 
numbers are used in the error messages and in the cross reference map. 

The compiler produces a reference map for each routine compiled. The compiler generated addresses assume 
loading of program units starts at location 0. A description of the reference map is described in section 111-1. 

A map is produced by the loader at load time. In this map, the user program starts at relative address lOlg. 
(The first 101 words, 0-100, serve as the communication region between the operating system and the user 
program.) Refer to the Loader Reference Manual for details of the load map. 

To find the address of a variable, add the address of the program unit, which appears in the load map. to the 
address of the variable which appears in the reference map. All locations and addresses in the reference map 
and the core map are in octal. For example, 

For example. 

VARIABLES SN TYPE 

0 A REAL 

17 AVG REAL 

CUD I INTEGER 

0 J INTEGER 

PROGRAM AND BLOCK ASSIGNMENTS. 


BLOCK 

A0DRESS 

LENGTH 

FILE 

VARDIM2 

101 

2141 

LGO 

SET 

2242 

34 

LGO 

IOTA 

2276 

15 

LGO 

PVAL 

2313 

33 

LGO 

AVG 

Cj346> 

21 

LGO 

MULT 

2367 

20 

LGO 

/Q8.I0./ 

F0RSYS= 

240 7 
2543 

134 

537 

SL-FORTRAN 

GE TFIT = 

3302 

33 

SL-FORTRAN 

/I0.BUF./ 
NAM0U T = 

3335 

3564 

227 

573 

SL-FORTRAN 
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the address of the location generated for the variable I would be: 


2346 

+20 

2366 


DMPX. 

When a program does not compile or execute successfully, a partial dump is produced. A DMPX includes the 
contents of the registers, the first 101 words of the user’s field length (the communication region), and the 
contents of the 101 (octal) words immediately preceding and immediately following the addresses where the 
job terminated. 

I p Address of program step to be executed next if job had not terminated 

2. RA Reference address: absolute address where user’s field begins. All other addresses are 

relative to this address. 

3. FL Field length of job 

4. EM Default exit mode 

5. RE Extended core storage reference address 

6. FE Field length assigned to job in extended core storage 

7. MA Address used for linkage between the operating system and user program 

8. Address registers 

9. Contents of address registers 

10. Index registers 

11. Contents of index registers 

12. Operand registers. 

13. Contents of operand registers 

14. Contents of locations specified in the A register. For example, items 8 and 9 show 
register A2 contains the address 002155, and item 14 shows location 002155 contains 
1725 2420 2524 0000 0133. 

15. Address of 60-bit word in central memory, followed by contents of that word (in octal) 

16. Indicates that contents of previous locations are repeated up to but not including this 
location 
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| § Applies only to CONTROL DATA CYBER 70/Model 76 and 7600 computers. 


SAMPLE DECK STRUCTURES 111-13 


FORTRAN SOURCE PROGRAM WITH CONTROL CARDS 

Refer to the operating system reference manual for details of control cards. 


Control 

Cards 



[ FORTRAN 
SOURCE 
PROGRAM 


' Account card follows the job card in KRONOS and should be in all KRONOS decks. 
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r-" oo ct> 
























FORTRAN COMPILATION WITH COMPASS ASSEMBLY AND EXECUTION 

FORTRAN and COMPASS program unit source decks can be in any order. COMPASS source decks must 
begin with a card containing the word IDENTb in columns 11-16 and terminate with a card containing the 
word ENDb in columns 11-14 (b denotes a blank). Columns 1-10 of the IDENT and END cards must be 
blank. 



L - Source program 
diagnostics, and 
short reference 
map listed 

X - ANSI diagnostics 
listed 
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III-13-3 



<D I s * 00 O) 


COMPILE AND EXECUTE WITH FORTRAN SUBROUTINE AND COMPASS 
SUBPROGRAM 



Data will be written 
to OUTPUT rather 
than TAPE2. 


IH-13-4 
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PROGRAM BOB(INPUT,OUTPUT,TAPE1) 








i"* oo o> 


binary deck 







































PREPARATION OF OVERLAYS 
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source deck 


I_ 

OV E R LAY (CH ,0,0) 


(ABSOLUTE OVERLAY) 

'!<! (RELOCATABLE) 

/ FTN(B=X) 

/ JOBTWO,T100,CM50000. 















STANDARD CHARACTER SETS 


A 


Since the character set is selected when FORTRAN Extended is installed, the user should check with his 
installation to determine which character set is being used. 

Installation options allow the user to select an 026 or an 029 keypunch, or to override this selection by 
punching a 26 or 29 in columns 79 and 80 of the SCOPE job card, or any 7/8/9 end-of-record card. The 
keypunched 26 or 29 remains in effect for the remainder of the job or until it is reset by a different mode 
selection on another 7/8/9 card. 

Under KRONOS 2.1, a 5/7/9 card is used to change the card read mode depending on column 2 of the card. 
The following codes are valid on the 5/7/9 card: 


blank 

9 

8 

8/9 

4/S/6/7/8/9 


026 

FORTRAN 029 
COBOL 029 
SNOBOL 029 
LITERAL INPUT 


See KRONOS 2.1 Batch User’s Reference Manual for the definition of these codes. 


When the 63-character set is used, the display code character 00g under A or R FORMAT conversion will be 
converted to a space, display code 55g for ENCODE and DECODE as well as FORMATTED I/O statement. 

No conversions occur with the A or R FORMAT element when the 64-character set is used. 
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STANDARD CHARACTER SETS 


ASCI! 

Code 

or^cocncnQ<Lj_coo^OoOLiiomQLOCNU-T- (fl a. u w o CJ w co 

fOrjOO^fNCNCMCNCNCNCNCOCNCMtNfNinmCNCNLOCN CN CN CO CO CO ^ 13 lO CO 

ASCII 

Punch 

(0291 

6 

7 

8 

9 

12-8-6 

11 

11 8 4 

0-1 

12-8-5 

11 8-5 

11- 8-3 

8-6 

no punch 

0-8 3 

12- 8-3 

8-3 

12 8 2 

11-8-2 

08 4 

8 7 

08 5 

12-8-7 or 

11- Ottt 

12 

8 5 

08 7 

12- 8-4 or 

12-0ttt 

08 6 

8 4 
08-2 

118-7 

118 6 

External 

BCD 

Code 

06 

07 

10 

11 

60 

40 

54 

21 

34 

74 

53 

13 

20 

33 

73 

36 

17 

32 

16 

14 

35 

52 

37 

55 

56 

72 

57 

15 

75 

76 

77 

-C 

tr s: —» 

G C£l 

4J C (N 
= 30 

O £1 - 

X 

6 

7 

8 

9 

12 

11 

11- 8-4 

0-1 

0-8-4 

12- 8-4 

11- 8-3 

8-3 

no punch 
0-8-3 

12- 8-3 
0-8 6 

8-7 

08-2 

8 6 

8-4 

08 5 

114) or 

11- 8 2ttt 

08 7 

11 8-5 

118 6 

12- 0 or 
12-8-2TU 

11-8-7 

8-5 

12 8-5 

12 8-6 

12 8 7 

■ 

41 

42 

43 

44 

45 

46 

47 

50 

51 

52 

53 

54 

55 

56 

57 

60 

61 

62 

63 

64 

65 

66 

67 

70 

71 

72 

73 

74 

75 

76 

77 

ASCII 

Graphic 

Subset 

6 

7 

8 

9 

+ 

# 

/ 

( 

) 

$ 

blank 
, (comma) 

. (period) 

# 

[ 

1 

% 

" (quote) 
(underline) 

l 

& 

' (apostrophe) 

? 

< 

> 

\ 

^'(circumflex) 

; (semicolon) 

CDC 

Graphic 

6 

7 

8 

9 

+ 

/ 

! 

) 

$ 

blank 
, (comma) 

. (period! 

I 

) 

%tt 

-*■ 

V 

A 

t 

< 

> 

< 

-1 

; (semicolon) 

ASCII 

Code 

<f^Mnttin(Di^coo)<cQUQuju.Or-fNn^ifl(Or^co(5<gr;(Nnt;in 

ASCII 

Punch 

(029) 

8 2 

12-1 

12 2 

12-3 

12-4 

12-5 

12-6 

12-7 

12-8 

12-9 

11-1 

11-2 

11-3 

11-4 

11-5 

116 

H7 

11-8 

119 

0-2 

0-3 

0-4 

0-5 

0-6 

0-7 

0-8 

0-9 

0 

1 

2 

3 

4 

5 

External 

BCD 

Code 

00 

61 

62 

63 

64 

65 

66 

67 

70 

71 

41 

42 

43 

44 

45 

46 

47 

50 

51 

22 

23 

24 

25 

26 

27 

30 

31 

12 

01 

02 

03 

04 

05 

-- 

.c 

.t; .c •— 
t u (0 

0 ) c (N 

oi2 

X 

8-2 

12-1 

12-2 

12-3 

12-4 

12-5 

12-6 

12-7 

12-8 

12-9 

11-1 

11-2 

11-3 

11-4 

11-5 

116 

117 

11-8 

11-9 

0-2 

0-3 

0-4 

0-5 

0-6 

0-7 

0-8 

0-9 

0 

1 

2 

3 

4 

5 

Display 

Code 

001 

01 

02 

03 

04 

05 

06 

07 

10 

11 

12 

13 

14 

15 

16 

17 

20 

21 

22 

23 

24 

25 

26 

27 

30 

31 

32 

33 

34 

35 

36 

37 

40 

ASCII 

Graphic 

Subset 

..<moQuiu.OX-^^-J52OQ-O0:v)l-D>SX>-NO-CNmxrin 

CDC 

Graphic 

T<moQuJU.OI-m!2-J2ZOa-aa:v3l-D>SX>-NO'-c\imxfin 
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t Twelve or more zero bits at the end of a 60-bit word are interpreted as end-of-line mark rather than two colons. End-of-line mark is converted to 
external BCD 1632. 

11 In installations using the CDC 63-graphic set, display code 00 has no associated graphic or Hollerith code; display code 63 is the colon (8-2 punch) 
ttThe alternate Hollerith (026) and ASCII (029) punches are accepted for input only. 














HEXADECIMAL-OCTAL CONVERSION TABLE 



First 

0 

Hexade 

1 

cimal 

2 

Digit 

3 

4 

5 

6 

7 

8 

9 

A 

B 

C 

D 

E 

F 

Second 0 

000 

020 

040 

060 

100 

120 

140 

160 

200 

220 

240 

260 

300 

320 

340 

360 

Hexadecimal — 

Digit 1 

001 

021 

041 

061 

101 

121 

141 

161 

201 

221 

241 

261 

301 

321 

341 

361 

2 

002 

022 

042 

062 

102 

122 

142 

162 

202 

222 

242 

262 

302 

322 

342 

362 

3 

003 

023 

043 

063 

103 

123 

143 

163 

203 

223 

243 

263 

303 

323 

343 

363 

4 

004 

024 

044 

064 

104 

124 

144 

164 

204 

224 

244 

264 

304 

324 

344 

364 

5 

005 

025 

045 

065 

105 

125 

145 

165 

205 

225 

245 

265 

305 

325 

345 

365 

6 

006 

026 

046 

066 

106 

126 

146 

166 

206 

226 

246 

266 

306 

326 

346 

366 

7 

007 

027 

047 

067 

107 

127 

147 

167 

207 

227 

247 

267 

307 

327 

347 

367 

8 

010 

030 

050 

070 

110 

130 

150 

170 

210 

230 

250 

270 

310 

330 

350 

370 

9 

Oil 

031 

051 

071 

111 

131 

151 

171 

211 

231 

251 

271 

311 

331 

351 

371 

A 

012 

032 

052 

072 

112 

132 

152 

172 

212 

232 

252 

272 

312 

332 

352 

372 

B 

013 

033 

053 

073 

113 

133 

153 

173 

213 

233 

253 

273 

313 

333 

353 

373 

C 

014 

034 

054 

074 

114 

134 

154 

174 

214 

234 

254 

274 

314 

334 

354 

374 

D 

015 

035 

055 

075 

115 

135 

155 

175 

215 

235 

255 

275 

315 

335 

355 

375 

E 

016 

036 

056 

076 

116 

136 

156 

176 

216 

236 

256 

276 

316 

336 

356 

376 

F 

017 

037 

057 

077 

117 

137 

157 

177 

217 

237 

257 

277 

317 

337 

357 

377 

Octal 

000 

037 

040 

077 

100 

137 

140 

177 

200 

237 

240 

277 

300 

337 

340 

377 


60305600 B 


A-3 

















































































































































































































INDEX 


Actual 

Definitions of Procedure Subprograms, Actual and Dummy Arguments 1-7-4 
Adjustable 

Adjustable or Variable Dimensions 1-6-7 

Using Variable or Adjustable Dimensions in a Subprogram 1-7-18 
ANSI 

FORTRAN ANSI Standard v 
AREA 

AREA Debug Statement and AREA Bounds 1-13-26 
Arguments 

Definitions of Procedure Subprograms, Actual and Dummy Arguments 1-7-4 
Arithmetic 

Arithmetic Expressions and Operators 1-3-1 
Ilixed-Ilode Arithmetic Expression Type Conversion 1-3-5 
Arithmetic Assignment Statements 1-4-1 
Arithmetic IF Tv/o and Three Branch 1-5-6 
Floating-Point Arithmetic III-4-1 
Integer and Double Precision Arithmetic III-4-7 
Arithmetic Mode Errors III-4-9 
Tracing Arithmetic Errors III-4-11 
Complex, Logical and Masking Arithmetic III-4-8 
Array 

Array Structure and Array Element Location 1-2-15 
Arrays 

Arrays and Subscripts 1-2-12 
Arrays in NAMELIST 1-9-19 
ARRAYS Debug Statement 1-13-4 
ASSIGN 

ASSIGN Statement 1-5-4 
Assigned 

Assigned GOTO Statement 1-5-5 
Assignment 

Arithmetic Assignment Statements 1-4-1 
Assignment Statement Conversion to Integer 1-4-2 
Assignment Statement Conversion to Real 1-4-3 
Assignment Statement Conversion to Double Precision 1-4-3 
Assignment Statement Conversion to Complex 1-4-4 
Logical and Masking Assignment Statements 1-4-5 
Multiple Assignment Statement 1-4-6 
Aw 

Aw Input and Output Conversion 1-10-19 


BACKSPACE 

REWIND and BACKSPACE Statements 1-9-12 
BACKSPACE REWIND Table III-5-8 
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1-8-7 


Basic 

Basic External Library Functions 
Blanks 

Conversion of Blanks on Input 1-10-6 
Block 

COMMON Statement and Block Names and Numbers 1-6-8 
BLOCK DATA Subprogram 1-6-25 
Body 

Statement Body Col 7-72 1-1-2 

Bounds 

AREA Debug Statement and AREA Bounds 1-13-26 
Buffer 

PROGRAM Statement and File and Buffer Length Specifications 1-7-1 
BUFFER IN Statement 1-9-13 
BUFFER OUT Statement 1-9-14 
BUFFER Input/Output III-5-12 


C 

Comment line C * or $ in Col 1 1-1-3 

CALL 

CALL Statement 1-7-14 
Calling 

Calling an Overlay 1-12-5 
CALLS 

CALLS Debug Statement 1-13-6 
Call-by-Name 

Call-by-Value and Call-by-Name and Processor Entry Names III-8-1 
Call-by-Value 

Call-by-Value and Call-by-Name and Processor Entry Names III-8-1 
Carriage 

Printer Carriage Control Characters 1-9-2 

CDC 

Related CDC Manuals iv 
Character 

FORTRAN Character Set, also see Appendix A 1-1-1 

Hollerith or Character Constants Strings 1-2-6 

Character Sets and 026, 029 Punch Codes A-l 

Printer Carriage Control Characters 1-9-2 
CHECK 

File Processing Subroutines REPLC CHECK SKIP SEEKF WEOR III-6-6 
CLOSEM 

File Processing Subroutines OPENM CLOSEM GET III-6-4 
CLOSMS 

Utility Subroutines CLOSMS STRACE 1-8-13 

Mass-Storage Subroutines READMS WRITMS STINDX CLOSMS III-7-2 
Codes 

Character Sets and 026, 029 Punch Codes A-l 
Coding 

Coding Form Sample Program PASCAL 1-1-4 


Index-2 
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Comma 

FORMAT Field Separators Slash and Comma 1-10-7 
Comment 

Comment line C * or $ in Col 1 1-1-3 

COMMON 

COMMON Statement and Block Names and Numbers 1-6-8 
EQUIVALENCE and COMMON implications 1-6-12 
Transferring Values to a Subprogram with COMMON 1-7-17 
COMMON BLOCKS Line in Reference Map III-1-14 
COMPASS 

Linkage of COMPASS Coded Subprograms Owncode III-10-1 
Sample COMPASS Subprogram III-1Q-4 
Compilation 

Compilation Diagnostics or Error Messages III-2-1 
Compilation and Execution Listings III-12-1 
Sample Deck for Compilation Only III-13-2 
Compile 

Sample Deck for Compile and Execute III-13-1 
Complex 

Complex Constants 1-2-4 

Integer, Real, Double Precision, Complex, and Logical Variables 1-2-10 
Assignment Statement Conversion to Complex 1-4-4 
Type Declaration Statements INTEGER REAL COMPLEX 1-6-2 
Complex, Logical and Masking Arithmetic III-4-8 
Computed 

Unconditional and Computed GOTO Statements 1-5-1 
Conflicts 

Conflicts with Library Function Names 1-7-8 
Constants 

Integer Constants Fixed-Point 1-2-1 
Real Constants Floating-Point 1-2-2 
Double Precision Constants 1-2-3 
Complex Constants 1-2-4 
Octal Constants 1-2-5 

Hollerith or Character Constants Strings 1-2-6 
Logical Constants .TRUE, or .FALSE. 1-2-8 
Continuation 

Continuation Designation Col 6 1-1-2 

CONTINUE 

CONTINUE and PAUSE Statements 1-5-14 
Control 

Printer Carriage Control Characters 1-9-2 
Printer Control Characters 1-10-32 

FORTRAN FTN Control Card and Default Options 1-11-1 
FTN Control Card Sample 1-11-9 
OVERLAY Control Card 1-12-4 
Conversion 

Mixed-Mode Arithmetic Expression Type Conversion 1-3-5 
Assignment Statement Conversion to Integer 1-4-2 
Assignment Statement Conversion to Real 1-4-3 
Assignment Statement Conversion to Double Precision 1-4-3 
Assignment Statement Conversion to Complex 1-4-4 
Conversion of Blanks on Input 1-10-6 
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Cross 

Symbolic or Cross Reference Map 
C$ 

C$ Debugging Statements 1-13-3 


DATA 

DATA Statement 1-6-21 
BLOCK DATA Subprogram 1-6-25 
List Directed Input Data Forms 1-9-10 
List Directed Output Data Forms 1-9-11 
NAMELIST Input Data Form 1-9-17 
NAMELIST Output Data Form 1-9-18 
DATE 

Utility Subroutines DISPLA RANGET RANSET SECOND DATE 1-8-10 
Debug 

Debug Deck Structure 1-13-19 

Example of Debug Statements Interspersed in Deck 1-13-20 
Example of External Debug Deck 1-13-21 
Example of Internal Debug Deck 1-13-22 

Example of External Debug Deck on Separate File 1-13-23 
DEBUG Statement 1-13-24 
File Name DEBUG 1-13-30 
Debugging 

Debugging Facility, See also DEBUG USER'S GUIDE 1-13-1 
C$ Debugging Statements 1-13-3 

STRACE Debugging Subprogram for Traceback 1-13-30 
Deck 

Debug Deck Structure 1-13-19 
Sample Deck for Compile and Execute III-13-1 
Sample Deck for Compilation Only III-13-2 
Sample Deck for Overlays III-13-9 
Declaration 

Type Declaration Statements INTEGER REAL COMPLEX 1-6-2 
Type Declaration Statements DOUBLE PRECISION LOGICAL 1-6-3 
DECODE 

DECODE Statement 1-9-24 
Default 

FORTRAN FTN Control Card and Default Options 1-11-1 
Definition 

FUNCTION Subprogram Definition and Reference 1-7-6 
Diagnostics 

Compilation Diagnostics or Error Messages III-2-1 
Execution Diagnostics or Error Messages III-2-14 
Dimension 

Dimension Information in Type Statements 1-6-5 

DIMENSION Statement 1-6-6 

Adjustable or Variable Dimensions 1-6-7 

Using Variable or Adjustable Dimensions in a Subprogram 1-7-18 
Directed 

List Directed WRITE 1-9-7 

List Directed READ — Free Form Input 1-9-9 
List Directed Input Data Forms 1-9-10 
List Directed Output Data Forms 1-9-11 
DISPLA 

Utility Subroutines DISPLA RANGET RANSET SECOND DATE 1-8-10 
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DLiTE 

File Processing Subroutines PUT GETN DLTE III-6-5 
DI1PX 

Description of DfIPX III-12-2 
DO 

DO Statement and Definition of the Extended Range 1-5-8 
Double 

Double Precision Constants 1-2-3 

Integer, Real, Double Precision, Complex, and Logical Variables I 

Assignment Statement Conversion to Double Precision 1-4-3 

Type Declaration Statements DOUBLE PRECISION LOGICAL 1-6-3 

Integer and Double Precision Arithmetic III-4-7 
DO-LOOPS 

DO-LOOPS Line in Reference Map III-1-13 
Dummy 

Definitions of Procedure Subprograms, Actual and Dummy Arguments 
DUMP 

Utility Subroutines DUMP PDUMP SSWTCH REMARK 1-8-9 
Dw. d 

Dw.d Input and Output Conversion 1-10-17 


ENCODE 

ENCODE Statement 1-9-21 

END 

STOP and END Statements 1-5-15 
ENDFILE 

Effect of ENDFILE on Various Record Types III-5-10 
File Processing Subroutines WTMK ENDFILE REWND GETP III-6-7 
ENDIFLE 

ENDIFLE Statement 1-9-13 
End-o f-Record 

/ FORMAT End-of-Record Specification 1-10-29 
ENTRY 

ENTRY Statement 1-7-20 

ENTRY POINTS Line in Reference Map III-1-6 

Call-by-Value and Call-by-Name and Processor Entry Names III-8-1 

EOF 

Utility Functions RANF LOCF UNIT EOF 1-8-13 
UNIT and EOF Functions to Check I/O Status III-5-13 
EQUIVALENCE 

EQUIVALENCE Statement and Equivalence Groups 1-6-12 
EQUIVALENCE and COMMON implications 1-6-12 
EQUIVALENCE CLASSES Line in Reference Map III-1-15 
ERROR 

ERROR MESSAGES Caused by Insufficient Storage III-1-6 
Compilation Diagnostics or Error Messages III-2-1 
Execution Diagnostics or Error Messages III-2-14 
SYSTEM Routine for Error Tracing III-3-1 
Non-Standard Error Recovery III-3-3 
FORTRAN/Record Manager Error Checking III-6-9 
Errors 

Arithmetic Mode Errors III-4-9 
Tracing Arithmetic Errors III-4-11 

IOCHECK Function to Test for Parity Errors III-5-15 
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ERRSET 

Utility Subroutines TIME ERRSET LABEL MOVLEV 1-8-11 
ERRSET Function to Bypass Data Errors III-5-16 
Evaluation 

Evaluation of Expressions and Unary Operators 1-3-2 
Exponentiation Order of Evaluation and Types of Operands 
Evaluation of Relational Expressions 1-3-8 
Ew.d 

Ew.d Ew.dEe and Ew.dDe Output Conversion 1-10-9 
Ew.d Ew.dEe and Ew.dDe Input Conversion 1-10-11 
Ew.d with Scaling 1-10-24 

Example , , ___ . A , 

Generated Code for Function Linkage Example III-10-6 

EX6 CutG 

Sample Deck for Compile and Execute III-13-1 
Execution 

Execution Diagnostics or Error Messages III-2-14 
File-Name Handling by SYSTEM at Execution Time LGO Card 
Compilation and Execution Listings III-12-1 
EXXT 

Compatibility Subroutines FTNBIN SLITE SLITET EXIT 1-8-14 

Exponentiation T -> c 

Exponentiation Order of Evaluation and Types of Operands 1-3-6 

Expressions 

Subscript Expressions 1-2-17 

Arithmetic Expressions and Operators 1-3-1 

Precedence or Hierarchy of Operators in Expressions I-J-2 
Evaluation of Expressions and Unary Operators 1-3-2 
Mixed-Mode Arithmetic Expression Type Conversion I-3-b 
Evaluation of Relational Expressions 1-3-8 
Logical Operators .MOT. .AMD. .OR. in Expressions 
Masking Expressions 1-3-13 
Extended 

DO Statement and Definition of the Extended Range 
EXTERNAL 

EXTERNAL Statement 1-6-18 
Basic External Library Functions 1-8-7 
Example of External Debug Deck 1-13-21 

Example of External Debug Deck on Separate l ixe 1-13-2J 
EXTERNAL REFERENCES Line in Reference Map III-1-10 


1-3-9 


1-5-8 


Features . ... 

Features of FORTRAN Extended Version 4.1 m 

Field , _ T i t 

FORMAT Field Separators Slash and Comma 1-10-/ 
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File 

PROGRAM Statement and File and Buffer Length Specifications I 
TAPEu File Name and Logical I/O Unit Designation 1-7-1 
File Name DEBUG 1-13-30 

FILE NAMES Line in Reference Map III-1-9 
File Definitions Physical Record Unit PRU III-5-1 
FILE Card in Sample Deck III-5-7 
File Labels Subroutine LABEL IJ.I-5-11 

File Information Table Updating Subroutine STOREF III-6-3 
Multi-Level File Index III-7-7 
FILEAK 

Record Manager Subprograms FILESQ FILEWA FILEIS FILEDA FILEAK 
FILEDA 

Record Manager Subprograms FILESQ FILEWA FILEIS FILEDA FILEAK 
FILEIS 

Record Manager Subprograms FILESQ FILEWA FILEIS FILEDA F'lLEAK 
Files 

Sequential Files Default Conventions III-5-3 
Random Files Default Conventions III-5-4 
FILESQ 

Record Manager Subprograms FILESQ FILEWA FILEIS FILEDA FILEAK 
FI LEV/A 

Record Manager Subprograms FILESQ FILEWA FILEIS FILEDA FILEAK 
File-Name 

File-Name Handling by SYSTEM at Execution Time LGO Card III 

FIT 

IFETCH Function to Get Information from the FIT III-6-2 
Fixed-Point 

Integer Constants Fixed-Point 1-2-1 
Floating-Point 

Real Constants Floating-Point 1-2-2 
Floating-Point Arithmetic III-4-1 
Floating-Point Representation Table III-4-4 
Form 

Coding Form Sample Program PASCAL 1-1-4 
List Directed READ — Free Form Input 1-9-9 
FORMAT 

FORMAT Statement 1-10-5 
Repeated FORMAT Specification 1-10-31 
Variable FORMAT Statements I-10-3G 
Formatted 

Formatted WRITE Statements 1-9-5 
Formatted READ Statements 1-9-7 
Forms 

Index of Statement Forms or Syntax xi 
FORTRAN 

Features of FORTRAN Extended Version 4.1 iii 
FORTRAN ANSI Standard v 

FORTRAN Character Set, also sec Appendix A 1-1-1 
FORTRAN FTN Control Card and Default Options 1-11-1 
Free 

List Directed READ — Free Form Input 1-9-9 

FTN 

FORTRAN FTN Control Card and Default Options 1-11-1 
FTN Control Card Sample 1-11-9 
FTNBIN 

Compatibility Subroutines FTMBIN SUITE SLITET EXIT 1-8-14 
FUNCS 

FUNCS Debug Statement 1-13-8 
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FUNCTION 

FUNCTION Suuprogram Definition and Reference 1-7-6 
Conflicts with Library Function Names 1-7-8 
Restrictions on Using Library Function Names III-10-5 
Generated Code for Function Linkage Example III-10-6 
Functions 

Statement Functions 1-7-9 
Intrinsic Library Functions 1-8-2 
Basic External Library Functions 1-8-7 
Utility Functions RANF LOCF UNIT EOF 1-8-13 
Utility Functions LENGTH IOCHECK LEGVAR 1-8-14 
Fw. d 

Fw.d Output Conversion 1-10-13 
Fw.d Input Conversion 1-10-14 
Fw.d with Scaling 1-10-23 


Generated 

Generated Code for Function Linkage Example III-10-6 

GET 

File Processing Subroutines OPENM CLOSEM GET III-6-4 
GETN 

File Processing Subroutines PUT GETN DLTE III-6-5 
GETP 

File Processing Subroutines WTI1K ENDFILE REWND GETP III-6-7 
GOTO 

Unconditional and Computed GOTO Statements 1-5-1 
Assigned GOTO Statement 1-5-5 
GOTOS 

GOTOS Debug Statement 1-13-15 
Groups 

EQUIVALENCE Statement and Equivalence Groups 1-6-12 
Group-Name 

NAMELIST Statement and Group-Name Definition 1-9-15 
Gw. d 

Gw.d Input and Output Conversion 1-10-15 
Gw.d with Scaling 1-10-24 


H 

H L or K to Denote Hollerith Constants 1-2-6 
H FORMAT Element 1-10-25 
Hexadecimal 

Hexadecimal Octal Conversion Table A-3 
Hierarchy 

Precedence or hierarchy of Operators in Expressions 1-3-2 
Hollerith 

Hollerith or Character Constants Strings 1-2-6 
H L or R to Denote Hollerith Constants 1-2-6 
*...* and =...= Delineating Hollerith Fields 1-10-27 
Hollerith Data Interpreted by STORES Statement 1-13-14 
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Col 


73-80 1-1-3 


Identification 

Statement Identification Field 
IF 

Arithmetic IF Two and Three Branch 1-5-6 
Logical IF Statement 1-5-7 
IFETCH 

IFETCH Function to Get Information from the FIT III-6-2 
IMPLICIT 

IMPLICIT Type Statement 1-6-3 
Indefinite 

Indefinite Result III-4-4 

Result of Infinite, Indefinite, and Zero Operands III-4-5 
Index 

Index of Statement Forms or Syntax xi 
Mass-Storage Index Key Types III-7-4 
Multi-Level File Index III-7-7 
Indexing 

Indexing or Looping Using the DO Statement 1-5-10 
Infinite 

Result of Infinite, Indefinite, and Zero Operands III-4-5 
INLINE 

INLINE FUNCTIONS Line in Reference Map III-l-ll 
Input 

Input Output Record Lengths 1-9-2 
List Directed READ — Free Form Input 1-9-9 
List Directed Input Data Forms 1-9-10 
NAMELIST Input Data Form 1-9-17 
Input Output Lists I—10—1 
Object-Time Input Output III-5-1 
Input/Output 

BUFFER Input/Output III-5-12 
Integer 

Integer Constants Fixed-Point 1-2-1 

Integer, Real, Double Precision, Complex, and Logical Variables 1-2-10 
Assignment Statement Conversion to Integer 1-4-2 
Type Declaration Statements INTEGER REAL COMPLEX 1-6-2 
Integer and Double Precision Arithmetic III-4-7 
INTERCOM 

Terminal I/O III-ll-l 
Internal 

Example of Internal Debug Deck 1-13-22 
Interspersed 

Example of Debug Statements Interspersed in Deck 1-13-20 
Intrinsic 

Intrinsic Library Functions 1-8-2 
IOCKECX 

Utility Functions LENGTH IOCHECK LEGVAR 1-8-14 
IOCHECK Function to Test for Parity Errors III-5-15 
Iw 

Iw and Iw.z Input and Output Conversion 1-10-8 
Iw and Iw.z Input and Output Conversion 1-10-8 

I/O 

TAPEu File Name and Logical I/O Unit Designation 1-7-1 
UNIT and EOF Functions to Check I/O Status III-5-13 


Key 


Mass-Storage Index Key Types 
KRONOS 

Card Read Mode A-l 
Terminal I/O III-11-2 
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L 

H L or R to Denote Hollerith Constants 1-2-6 
LABEL 

Utility Subroutines TlilE ERRSET LABEL MOVLEV 1-8-11 
File Labels Subroutine ‘LABEL III-5-11 
Labels 

Staterrient Numbers or Labels Col 1-5 1-1-3 

File Labels Subroutine LABEL III-5-11 
Layout 

Object Tiir.e Memory Layout III-9-3 
LEGVAR 

Utility Functions LENGTH IOCHECK LEGVAR 1-8-14 
LENGTH 

Utility Functions LENGTH IOCHECK LEGVAR 1-8-14 
Lengths 

Input Output Record Lengths 1-9-2 

I LEHGTHX 

Subroutine LENGTHX 1-8-13 
LEVEL 

LEVEL Statement 1-6-17 
Levels 

Levels in Debug Statements 1-13-6 

LGO 

File-Name Handling by SYSTEM at Execution Time LGO Card III-3-6 
Library 

Conflicts with Library Function Names 1-7-8 
Intrinsic Library Functions 1-8-2 
Bcisic External Library Functions 1-8-7 
Restrictions on Using Library Function Names 1II-10-5 
Linkage 

Overlays, Linkage and Creation 1-12-3 

Linkage of COMPASS Coded Subprograms Owncode II.I-10-1 
Generated Code for Function Linkage Example III-10-6 
List 

List Directed WRITE 1-9-7 

List Directed READ — Free Form Input 1-9-9 
List Directed Input Data Forms 1-9-10 
List Directed Output Data Forms 1-9-11 
Listings 

Compilation and Execution Listings III-12-1 
Lists 

Input Output Lists 1-10-1 
Location 

Array Structure and Array Element Location 1-2-15 
LOCF 

| Utility Function LOCF 1-8-5 
Logical 

Logical Constants .TRUE, or .FALSE. 1-2-8 

Integer, Real, Double Precision, Complex, and Logical Variables 1-2-10 
Logical Operators .NOT. .AND. .OR. in Expressions 1-3-9 
Logical and Masking Assignment Statements 1-4-5 
Logical IF Statement 1-5-7 

Type Declaration Statements DOUBLE PRECISION LOGICAL 1-6-3 
TAPEu File Name and Logical I/O Unit Designation 1-7-1 
RE CORD-' IAN AGE R Logical Record Types III-5-2 
Complex, Logical and. Masking Arithmetic III-4-8 
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Looping 

Indexing or Looping Using the DO Statement 1-5-10 
Lw 

Lw Input and Output Conversion 1-10-22 


Manuals 

Related CDC Manuals iv 

Map 

Symbolic or Cross Reference Map III-l-l 
Masking 

Masking Expressions 1-3-13 

Logical and Masking Assignment Statements 1-4-5 
Complex, Logical and Masking Arithmetic III-4-8 
Mass-Storage 

Mass-Storage Subroutines OPENMS III-7-1 
Mass-Storage Subroutines READMS WRITMS STINDX CLOSMS 
Mass-Storage Index Key Types III-7-4 
Memory 

Object Time Memory Layout III-9-3 
MESSAGES 

ERROR MESSAGES Caused by Insufficient Storage III-l- 
Compilation Diagnostics or Error Messages III-2-1 
Execution Diagnostics or Error Messages III-2-14 
Mixed-Mode 

Mixed-Mode Arithmetic Expression Type Conversion 1-3 
Mode 

Arithmetic Mode Errors III-4-9 
MOVLEV 

Utility Subroutines TIME ERRSET LABEL MOVLEV 1-8-11 
Multiple 

Multiple Assignment Statement 1-4-6 
Multi-Level 

Multi-Level File Index III-7-7 


NAMELIST 

NAMELIST Statement and Group-Name Definition 1-9-15 
NAMELIST Input Data Form 1-9-17 
NAMELIST Output Data Form 1-9-18 
Arrays in NAMELIST 1-9-19 
NAMELIST Line in Reference Map III-l-ll 
Names 

Variable Names and Implied Types 1-2-9 
COMMON Statement and Block Names and Numbers 1-6-8 
Conflicts with Library Function Names 1-7-8 
Restrictions on Using Library Function Names III-10- 
NOGO 

NOGO Debug Statement 1-13-18 
Null 

Program Unit and Null Program Definitions 1-7-1 
Numbers 

Statement Numbers or Labels Col 1-5 1-1-3 

COMMON Statement and Block Names and Numbers 1-6-8 
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Object-Time 

Object-Time Input Output III-5-1 
Octal 

Octal Constants 1-2-5 

Hexadecimal Octal Conversion Table A-3 

OFF 

OFF Debug Statement 1-13-28 
OPENM 

File Processing Subroutines OPENM CLOSEM GET III-6-4 
OPENMS 

Mass-Storage Subroutines OPENMS III-7-1 
Operands 

Exponentiation Order of Evaluation and Types of Operands 1-3-6 
Result of Infinite, Indefinite, and Zero Operands III-4-5 
Operators 

Arithmetic Expressions and Operators 1-3-1 

Precedence or Hierarchy of Operators in Expressions 1-3-2 
Evaluation of Expressions and Unary Operators 1-3-2 
Relational Operators ,GT. ,GE. .LT. .LE, .EQ. .NE. 1-3-7 
Logical Operators .NOT. .AND. .OR. in Expressions 1-3-9 
Optimization 

Compiler Optimization III-3-8 
Options 

FORTRAN FTN Control Card and Default Options 1-11-1 
Order 

Statement Order of a Program Unit III-9-1 
Output 

Input Output Record Lengths 1-9-2 
PRINT Output Statements 1-9-3 
PUNCH Output Statements 1-9-4 
List Directed Output Data Forms 1-9-11 
NAMELIST Output Data Form 1-9-18 
Input Output Lists 1-10-1 
Object-Time Input Output III-5-1 
Overflow 

Arithmetic Overflow and Underflow III-4-3 
OVERLAY 

OVERLAY Control Card 1-12-4 
Calling an Overlay 1-12-5 
Overlays 

Overlays, Linkage and Creation 1-12-3 
Sample Deck for Overlays III-13-9 
Ow 

Ow and Ow.d Input and Output Conversion 1-10-18 
Ow and Ow.d Input and Output Conversion 1-10-18 
Owncode 

Linkage of COMPASS Coded Subprograms Owncode III-10-1 


P 

P Scale Factors 1-10-22 
Parity 

IOCHECK Function to Test for Parity Errors III-5-15 
PASCAL 

Coding Form Sample Program PASCAL 1-1-4 
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PAUSE 

CONTINUE and PAUSE Statements I-5-L4 
PDUMP 

Utility Subroutines DUMP PDUMP SSWTCH REMARK 1-8-9 
Physical 

File Definitions Physical Record Unit PRU III-5-1 
Precedence 

Precedence or Hierarchy of Operators in Expressions 1-3-2 
Precision 

Integer, Real, Double Precision, Complex, and Logical Variables 1-2-10 
PRINT 

PRINT Output Statements 1-9-3 
Printer 

Printer Carriage Control Characters 1-9-2 
Printer Control Characters 1-10-32 
Procedure 

Definitions of Procedure Subprograms, Actual and Dummy Arguments 1-7-4 
Program 

Coding Form Sample Program PASCAL 1-1-4 
Program Unit and Null Program Definitions 1-7-1 

PROGRAM Statement and File and Buffer Length Specifications 1-7-1 
PROGRAM STATISTICS Line in Reference Map III-1-16 
Statement Order of a Program Unit III-9-1 

PRU 

File Definitions Physical Record Unit PRU III-5-1 
PUNCH 

PUNCH Output Statements 1-9-4 

Character Sets and 026, 029 Punch Codes A-l 

PUT 

File Processing Subroutines PUT GETN DLTE III-6-5 
PUTP 

File Processing Subroutine PUTP III-6-8 


R 

H L or R to Denote Hollerith Constants 1-2-6 
Random 

Random Files Default Conventions III-5-4 
RANF 

Utility Function RANF 1-8-5 I 

Range 

DO Statement and Definition of the Extended Range 1-5-8 
RANGET 

Utility Subroutines DISPLA RANGET RANSET SECOND DATE 1-8-10 
RANSET 

Utility Subroutines DISPLA RANGET RANSET SECOND DATE 1-8-10 
READ 

Formatted READ Statements 1-9-7 

Unformatted READ Statements 1-9-8 

List Directed READ — Free Form Input 1-9-9 
READEC 

Compatibility Subroutines WRITEC READEC 1-8-15 
READMS 

Utility Subroutines READMS WRITMS STINDX 1-8-12 • 

Mass-Storage Subroutines READMS WRITMS STINDX CLOSMS III-7-2 
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Real 

Real Constants Floating-Point 1-2-2 

Integer, Real, Double Precision, Complex, and Logical Variables 1-2-10 

Assignment Statement Conversion to Real 1-4-3 

Type Declaration Statements INTEGER REAL COMPLEX 1-6-2 
Record 

Input Output Record Lengths 1-9-2 

File Definitions Physical Record Unit PRU III-5-1 

Record Manager Subprograms FILESQ FILEWA FILEIS FILEDA FILEAK III-6-1 
RECORD-MANAGER 

RECORD-MANAGER Logical Record Types III-5-2 
Reference 

FUNCTION Subprogram Definition and Reference 1-7-6 

Symbolic or Cross Reference Map III-l-l 
Related 

Related CDC Manuals iv 
Relational 

Relational Operators ,GT. .GE. .LT. ,LE. .EQ. .ME. 1-3-7 

Evaluation of Relational Expressions 1-3-8 
REMARK 

Utility Subroutines DUMP PDUMP SSWTCH REMARK 1-8-9 
Repeated 

Repeated FORMAT Specification 1-10-31 
REPLC 

File Processing Subroutines REPLC CHECK SKIP SEEKF WEOR III-6-6 
Restrictions 

Restrictions on Using Library Function Names III-10-5 
RETURN 

RETURN Statement 1-5-16 
REWIND 

REWIND and BACKSPACE Statements 1-9-12 

BACKSPACE REWIND Table II1-5-8 
REWND 

File Processing Subroutines WTMK ENDFILE REWND GETP III-6-7 
Rw 

Rw Input and Output Conversion 1-10-21 


Sample 

Coding Form Sample Program PASCAL 1-1-4 
FTN Control Card Sample 1-11-9 
Sample COMPASS Subprogram III-10-4 
Sample Deck for Compile and Execute III-13-1 
Sample Deck for Compilation Only III-13-2 
Sample Deck for Overlays III-13-9 
Scale 

P Scale Factors 1-10-22 
Scaling 

Fw.d with Scaling 1-10-23 
Ew.d with Scaling 1-10-24 
Gw.d with Scaling 1-10-24 
SECOND 

Utility Subroutines DISPLA RANGET RANSET SECOND DATE 1-8-10 
SEEKF 

File Processing Subroutines REPLC CHECK SKIP SEEKF WEOR III-6-6 
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Separator 

$ Statement Separator 1-1-2 

FORMAT Field Separators Slash and Comma 1-10-7 

SKIP „ „ 

File Processing Subroutines REPLC CHECK SKIP SEEKF WEOR III-6-6 

Slash 

FORMAT Field Separators Slash and Comma 1-10-7 
SLITE 

Compatibility Subroutines FTNBIN SLITE SLITET EXIT 1-8-14 
SLITET 

Compatibility Subroutines FTNBIN SLITE SLITET EXIT 1-8-14 
SSWTCH 

Utility Subroutines DUMP PDUMP SSWTCH REMARK 1-8-9 
Standard 

FORTRAN ANSI Standard v 
Statement 

Index of Statement Forms or Syntax xi 
Statement Numbers or Labels Col 1-5 1-1-3 

$ Statement Separator 1-1-2 

Statement Identification Field Col 73-80 1-1-3 

Statement Body Col 7-72 1-1-2 

Statement Functions 1-7-9 

STATEMENT LABELS Line in Reference Map III-1-12 
Statement Order of a Program Unit III-9-1 
STINDX 

Utility Subroutines READMS WRITMS STINDX 1-8-12 
Mass-Storage Subroutines READMS WRITMS STINDX CLOSMS III-7-2 
STOP 

STOP and END Statements 1-5-15 
STOREF 

File Information Table Updating Subroutine STOREF III-6-3 
STORES 

STORES Debug Statement 1-13-11 

Hollerith Data Interpreted by STORES Statement 1-13-14 
STRACE 

Utility Subroutines CLOSMS STRACE 1-8-13 
STRACE Debugging Subprogram for Traceback 1-13-30 
Strings 

Hollerith or Character Constants Strings 1-2-6 
Subprograms 

Definitions of Procedure Subprograms, Actual and Dummy Arguments 1-7-4 
FUNCTION Subprogram Definition and Reference 1-7-6 
Transferring Values to a Subprogram with COMMON 1-7-17 
Linkage of COMPASS Coded Subprograms Owncode III-10-1 
Sample COMPASS Subprogram III-10-4 
SUBROUTINE 

SUBROUTINE Subprograms 1-7-12 

Utility Subroutines DUMP PDUMP SSWTCH REMARK 1-8-9 
Utility Subroutines DISPLA RANGET RANSET SECOND DATE 1-8-10 
Utility Subroutines TIME ERRSET LABEL MOVLEV 1-8-11 
Utility Subroutines READMS WRITMS STINDX 1-8-12 
Utility Subroutines CLOSMS STRACE 1-8-13 
Subscript 

Subscript Expressions 1-2-17 
Arrays and Subscripts 1-2-12 
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V 

V Variable FORMAT Element 1-10-35 
Variable 

Variable Names and Implied Types 1-2-9 
Adjustable or Variable Dimensions 1-6-7 

Using Variable or Adjustable Dimensions in a Subprogram 1-7-13 

V Variable FORMAT Element 1-10-35 
Variable FORMAT Statements 1-10-36 

Variables 

Integer,‘Real, Double Precision, Complex, and Logical Variables 1-2-10 
VARIABLES Line in Reference Map III-1-7 


WEOR 

File Processing Subroutines REPLC CHECK SKIP SEEKF WEOR III-6-6 
WRITE 

Formatted WRITE Statements 1-9-5 
Unformatted WRITE Statements 1-9-6 
List Directed WRITE 1-9-7 
WRITFC 

Compatibility Subroutines WRITEC READEC 1-8-15 
WRITMS 

Utility Subroutines READMS WRITMS STINDX 1-8-12 
Mass-Storage Subroutines READMS WRITMS STINDX CLOSMS III-7-2 
WTMK 

File Processing Subroutines WTMK ENDFILF. REWND GETP III-6-7 


X 

X FORMAT Element 1-10-24 


Zero 

Result of Infinite, Indefinite, and Zero Operands III-4-5 
Zv; 

Zw Input and Output Conversion 1-10-19 


Comment line C * or $ in Col 1 1-1-3 
Comment line C * or $ in Col 1 1-1-3 
$ Statement Separator 1-1-2 

*...* and = ..,= Delineating Hollerith Fields 1-10-27 
and =...= Delineating Hollerith Fields 1-10-27 
/ FORMAT End-of-Record Specification 1-10-29 


.AND. 

Logical Operators .NOT. .AND. .OR. in Expressions 1-3-9 

.EQ. 


Relational 

Operators 

.CT. 

.GE. .LT. 

.LE. 

.EQ. .NE. 

1-3-7 

.FALSE. 







Logical Constants .TRUE. 

or .FALSE. 

1-2 

-8 


.GE. 







Relational 

Operators 

.gt. 

.GE. .LT, 

.LE. 

.EQ. .NE. 

1-3-7 


60305600 D 


Index-17 • 


,GT. 


Relational Operators .GT 

.LE. 

Relational Operators .GT 
.LT.' 

Relational Operators .GT 
.NE. 

Relational Operators .GT 
.NOT. 

Logical Operators .NOT. 
.OR. 

Logical Operators .MOT. 
.TRUE. 

Logical Constants .TRUE. 


.GE. 

.LT. 

.LE. 

• EQ. 

.NE. 

1-3-7 

• GE. 

.LT. 

.LE. 

• EQ. 

.NE. 

1-3-7 

• GE. 

.LT. 

.LE. 

.EQ. 

.NE. 

1-3-7 

.GE. 

.LT. 

• LE. 

.EQ. 

.HE. 

1-3-7 

AND . 

.OR, 

in Expressions 

1-3-9 

AND. 

.OR. 

in Expressions 

1-3-9 


or .FALSE. 1-2-8 


• Index-18 
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. H 

Mode 1 

Address out of range. A non-existent storage location has been referenced. Mode 1 
errors may be caused by: H 


calling a non-existent subprogram during execution 1 

using an incorrect number of arguments when calling a subprogram H 

a subscript assuming an illegal value ■ 

no dimensons specified for an array name 1 

Mode 2 

Infinite operand. One of the operands in a real operation is infinite. Infinity is the result fl 

whenever the true result of a real operation would be too large for the computer, or when ■ 

division by zero is attempted. A value of infinity may be returned when some functions are 1 

referenced. For example, ALOG(0.) would be negative infinity. 1 


irthe following example, Z would be given the value infinity, and when the addition Z + 56. 9 

is attempted execution terminates with a mode 2 error. I 


1 FORMAT (F12.3) 1 

Y - 0. 1 

Z - 23.2/Y I 

PRINT I, Z I 

CAT - Z + 56. "* \ I 


When the print statement is executed, an R is printed to indicate an out of range 1 

value. 

Mode 3 

Address is out of range or operand is infinite number. 

Mode 4 

Indefinite operand. One of the operands in a real operation is indefinite. An indefinite 
result is produced by dividing 0. by 0. or multiplying an infinite operand by 0. An 
illegal library function reference may return an indefinite value. For example, SQRT 
(-2.) would produce an indefinite result. An attempt to print an indefinite value pro¬ 
duces the letter 1. 

Mode 5 

Address is out of range or indefinite operand. 

Mode 6 

Operand is infinite or indefinite. A mode 6 arithmetic error occurs when a real opera¬ 
tion is performed with one operand infinite and the other operand indefinite. 

Mode 7 

Operand is infinite, indefinite, or address is out of range. 

t When an’ arithmetic error occurs the following type of message appears in the dayfile and execution is 
terminated: 

* 

14.39 

• 06.EP n, 0<? Monr = 2 , PHDRESS =00?135 

^Applies only to CONTROL DATA CYBER 70/Models 72, 73, 74 and 6000 Series computers. 

60305600 B 

« t * 

III-4-9 





